Ich spreche von der
Unit DecodeThread, da hast du folgendes stehen:
Delphi-Quellcode:
procedure TDecodeThread.Execute;
var
HashDecodedFile:
string;
begin
if not DecodeFile(FFilename, FFolder, FPW, FCipherClass, FHandle)
then
Messagebox(
Handle, '
Fehler beim Entschlüsseln der Datei.',
'
Datei entschlüsseln', MB_ICONSTOP);
Form1.Statusbar1.Panels[0].Text := StatusArray[2];
//<==
Form1.Statusbar1.Refresh;
//<==
...
Aber das ist eigentlich ja auch nebensächlich.