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;