function XORCrypt(Password,InputFilePath,OutputFilePath:String):Boolean;
var aktChar: Integer;
   InputFile, OutputFile: File of Byte;
   Buffer:Byte;
begin
    Result := False;

    try
       aktChar := 1;

       AssignFile(InputFile,InputFilePath);
       Reset(InputFile);

       AssignFile(OutputFile,OutputFilePath);
       Rewrite(OutputFile);

{      MainForm.ProgressBar.Max := FileSize(InputFile);
        MainForm.ProgressBar.Position := 0;
        MainForm.ProgressBar.Enabled := True;
}
      while not Eof(InputFile) do
        begin
         if(aktChar > Length(Password)) then aktChar := 1;
          Read(InputFile,Buffer);
           Buffer := Buffer xor ord(Password[aktChar]);
           Write(OutputFile,Buffer);
           Inc(aktChar);
// MainForm.ProgressBar.Position := MainForm.ProgressBar.Position + 1;
       end;
    finally
       CloseFile(InputFile);
       CloseFile(OutputFile);

        Result := True;
    end;
end;