Source position: ftpsend.pas line 96
type TFTPStatus = procedure(
Sender: TObject;
Response: Boolean;
const Value: string
) of object;