ftp komplettes verzeichniss mit subdirs und files löschen

[agm65]

ich verstehe nicht ganz wie ich jetzt meinen ftp code und diese such funktion zusammen bringe ich kann ja nicht auf dem ftp nach den files suchen ohne die ftp funktionen oder ?

Delphi-Quellcode:

 if mainftp.Connected <> true then
     begin
      mainftp.Connect;
     end
     else
     begin
     // result := false;
      exit;
     end;


      if mainftp.Connected = true  then
      begin
       memo1.Lines.Add('FTP Status: Connected');
       memo1.Lines.Add('FTP Status: ' + mainftp.RetrieveCurrentDir);

       //change to user dir
       mainFTP.ChangeDir(ftpDir);
       memo1.Lines.Add('FTP Status: ' + mainftp.RetrieveCurrentDir);
       //frmmain.mainftp.List(frmmain.listbox.Items ,'',false); //


       //change to delDir dir
       mainFTP.ChangeDir('1128');
       memo1.Lines.Add('FTP Status: ' + mainftp.RetrieveCurrentDir);
       mainftp.List(listbox1.Items ,'',false); //

     end;