Ошибка при компиляции

unit Common;
 
interface
 
uses
  INIFiles, Classes, Forms, Windows, SysUtils, DateUtils, Controls, XOREncodingUnit;
 
const
  mdNew:Integer=0;
  mdEdit:Integer=1;
  mrConnected=1024;
  //DefaultQuery:String='Select * From';//Главный запрос по умолчанию
  Key:String='6jhgh5676rhftu469';
  MSG_SaveError:String='Ошибка сохранения';
  MSG_DatasetClosed:String='Набор данных закрыт';
  sbUse=0;
  sbNotUse=1;
  sbByVersion=2;
 
type
 
TChars=set of Char;
 
var
  DirPath:String;
  INIFile:TINIFile;
  ConString:String;
  DataSource:String;
  Pass:String;
  UserName:String;
  BasePath:String;
  Stream:TStream;
  ComputerName:String;
  Digits:TChars=['0'..'9'];
  Admin:Boolean;
  SuggestSort:Boolean;
 
function WritePswd(Pswd:String):Boolean;
function ReadPswd():String;
//function CreateConString(const UserName,DataSource,Pass:String):String;
function FindMonth(D,D1,D2:TDate):Word;inline;
 
 
implementation
 
function WritePswd(Pswd:String):Boolean;
var P:TArrayOfByte;
    i:Integer;
begin
Result:=false;
Randomize;
SetLength(P,64);
for i:=0 to 63 do P[i]:=Random(255);
if Pswd='' then Pswd:='#13';
P[4]:=Length(Pswd);
move(Pswd[1],P[10],P[4]);
P:=XOREncoding(P,Key,0,High(P));
try
Stream:=TFileStream.Create(DirPath+'Pswd.dat',fmCreate or fmShareExclusive);
Stream.Seek(0,soFromBeginning);
Stream.Write(Pointer(P)^,64);
Result:=true;
finally
Stream.Free;
Stream:=nil;
end;
 
end;
 
function ReadPswd():String;
var P:TArrayOfByte;
begin
Result:='';
if FileExists(DirPath+'Pswd.dat') then
  begin
  try
  Stream:=TFileStream.Create(DirPath+'Pswd.dat',fmOpenRead or fmShareExclusive);
  Stream.Seek(0,soFromBeginning);
  SetLength(P,64);
  Stream.Read(Pointer(p)^,64);
  P:=(XOREncoding(P,Key,0,High(P)));
  SetLength(Result,P[4]);
  Move(P[10],Result[1],P[4]);
  if Result='#13' then Result:='';
  finally
  Stream.Free;
  Stream:=nil;
  end;
  end;
end;
 
Procedure GetCompName;
var P:PANSIChar;
    L:DWord;
begin
L:=255;
GetMem(P,L);
GetComputerName(P,L);
ComputerName:=ANSIString(P);
end;
 
function FindMonth(D,D1,D2:TDate):Word;
begin
if ((D>D1) and (D<D2)) then Result:=MonthOf(D)
                       else Result:=0;
end;
 
{function CreateConString(const UserName,DataSource,Pass:String):String;
begin
Result:='Provider='+IniFile.ReadString('Connection','Provider','SQLOLEDB.1')+';'+
'Persist Security Info='+IniFile.ReadString('Connection','Persist Security Info','False')+';'+
'User ID='+UserName+';'+
'Password='+Pass+';'+
'Initial Catalog='+IniFile.ReadString('Connection','Initial Catalog','Metrol')+';'+
'Data Source='+DataSource+';'+
'Use Procedure for Prepare='+IniFile.ReadString('Connection','Use Procedure for Prepare','1')+';'+
'Auto Translate='+IniFile.ReadString('Connection','Auto Translate','True')+';'+
'Packet Size='+IniFile.ReadString('Connection','Packet Size','4096')+';'+
'Workstation ID='+IniFile.ReadString('Connection','Workstation ID','')+';'+
'Use Encryption for Data='+IniFile.ReadString('Connection',
  'Use Encryption for Data','False')+';'+
'Tag with column collation when possible='+IniFile.ReadString('Connection',
  'Tag with column collation when possible','False')+';';
 
end;   }
 
initialization
 
DirPath:=ExtractFilePath(Application.ExeName);
INIFile:=TINIFile.Create(DirPath+'Config.ini');
//GetCompName;
 
 
end.