Source position: IdFTP.pas line 668
type TIdCreateFTPList = procedure(
ASender: TObject;
var VFTPList: TIdFTPListItems
) of object;