Indy 9 - FTP - WorkBegin - WorkEnd

[Drako]

Hallo zusammen, ich hoffe ihr könnt mir helfen.
Ich möchte ein Bild auf einen FTP-Server hochladen und
dabei beim Upload-Start bzw beim Ende eine Message anzeigen lassen,

Delphi-Quellcode:

procedure TForm2.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ShowMessage('Bildupload startet!');
end;

procedure TForm2.FTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ShowMessage('Bildupload abgeschlossen!');
end;

allerdings führt das Programm beide Prozeduren direkt hintereinander aus und lädt dann die Datei hoch.

Edit: Ich benutze Delphi 5