Event OnFileFound

Occurs when mftp detected errors

(please see ftpdata.pas for the declaration of MFtpFileInfo)
type TMFtpFileFoundEvent = procedure (Sender: TObject; FileFound: MFtpFileInfo; Location: String; Directory: Boolean) of Object;

property OnFileFound: TMFtpFileFoundEvent;

Applied to

TMFtp

Example

var ZipFileList: TStringList;

procedure TForm1.MyFtpFileFound;
begin
   if not Directory then { make sure the file found is not directory }
   begin
      with FileFound do
      begin
         if LowerCase(Copy(Filename, Length(Filename) - 4)) = '.zip' then
            ZipFileList.Add(Location + Filename);
      end;
   end;
end;