IdHTTP - Post wird doppelt ausgeführt, warum?

[line5]

Hallo!

Ich habe eine Frage an euch:

Ich habe mir jetzt mit dem Indykomponent ein kleines UploadSkript zusammengebastelt, funktioniert auch super!
Jedoch merke ich nun mit WorkBegin, WorkEnd und OnWork plötzlich, dass der IdHTTP.Post zwei mal ausgeführt wird.
Nun fragt sich warum und wie kann man das unterbinden?

Hier der Quellcode:

Delphi-Quellcode:

//Prozedur SENDFILE
procedure TForm1.sendfile(filename:string);
var
  data: TIdMultiPartFormDataStream;
  res : string;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    data.AddFormField('dateiname', filename);
    data.AddFile('datei', filename, GetMIMETypeFromFile(filename));


    data.Position :=0;

     Memo1.Text := IdHTTP1.Post('URL', data); 
  except
    showMessage('Beim Upload trat ein Fehler auf! Es konnte keine Verbinung zum Server hergestellt werden!');
end;
end;

Hoffe ihr könnt da helfen, danke schonmal!
Line5