Source position: ftpclient.pas line 16
type TOnFTPClientListed = procedure(
Sender: TObject;
count: Integer
) of object;