Timer wird Blockiert

[Gausi]

Wenn ich das richtig verstehe, dann soll die Progressform nach einer gewissen Zeit geschlossen werden, wenn eine Aktion im MainForm beendet ist. Aber nicht sofort nach Ende, sondern z.B. nach 2 Sekunden, um dem User noch Zeit zu geben, eine Nachricht "Fertig" zu lesen? Oder so ähnlich?

Das würde ich dann so machen:

Delphi-Quellcode:

TfrmMain.DoSomething;
begin
  // ...
  // ... operation finished ...
  FormFtpprogress.progressTimer.Enabled := True;
end; 

procedure TFormFtpprogress.progressTimerTimer(Sender: TObject);
begin
   progressTimer.Enabled := false;
   Close; // ProgressForm schließen
end;