Casten eines Objects(TidFTP) funktioniert nicht mehr

[m0sch3r]

Hi

Bei Abschlus enes Downloades per FTP in Routine "FTPWorkEnd"

wird ein Tobject zum TidFTP gecastet, damit dir Verbindug geschlossen werden kann

Delphi-Quellcode:

procedure FTPWorkEnd(self : TObject; Sender: TObject; AWorkMode: TWorkMode);
begin
     form1.Debug_Memo.Lines.Add('FTPClientWorkEnd' + formatDateTime('hh:nn:ss:', now));

     //Schliese den FTPClient im Array.
     TidFTP(Sender).Disconnect;
end;

durch geheimnisvolle Umstände funktioniert das nicht mehr....!!!
Beim Debuggen hat der "Sender" igrentwelche daten, nicht aber die eines TidFTP

die Routine wurde einem Socket im Variablen array folgendermaßen zugefugt

Delphi-Quellcode:

@FFTPConnections[high(FFTPConnections)].FFTPConnction.OnWorkEnd        := @FTP1WorkEnd;

Hatte jemand das gleiche Problemm....!?