Source position: IdFTP.pas line 673
type TIdOnDataChannelDestroy = procedure(
ASender: TObject;
ADataChannel: TIdTCPConnection
) of object;