Wie richtig einen FTP socket (client) schliesen...!?

[m0sch3r]

Der FTP socket (client) wird folgendermaßen geschlossen

Delphi-Quellcode:

procedure FTPAfterGet(self : TObject; ASender: TObject; VStream: TStream);
var
    i,    n   : integer;
begin
      try
      [u] TidFTP(ASender).Disconnect;[/u]     
      except
      form1.Debug_Memo.Lines.Add('Error while closed FTPClientSocket' + formatDateTime('hh:nn:ss:', now));
      end; //try
      form1.Debug_Memo.Lines.Add('FTPClientAfterGet' + formatDateTime('hh:nn:ss:', now));
end;

Leider entsteht auf der FTP serverseite ein EConnClosedGracefuly exception (in den Debug Optionen habe ich sie eingeschlossen - trotzdem kommt wieder) oder eine EAccessViolation was auf ein nicht initialisiertes objeckt hinweist. diese beiden Fehlermeldungen entschtehen in Abwechlung auf der Serverseite beim schliesen der FTPclient verbindung.

Liegt es vieleicht an dem zeitpunkt wo der FTP client geschlossen wird (afterget), weil der socket noch zur der Zeit daten dahin schreibt...!?