Source position: IdFTP.pas line 674
type TIdNeedAccountEvent = procedure(
ASender: TObject;
var VAcct: string
) of object;