[zekk3r]

находит файлы отсылает на ftp но не удаляет...
Помогите пожалуйста разобратса

Код:

 if ftp.Login=True then
       begin
        ftp.ChangeWorkingDir(ip+'/voice');
        if FindFirst(edt1.Text+'*.wav',faAnyFile,search)=0 then
    begin
        repeat
         if search.Size > 600000 then
         begin
     ftp.DataStream.LoadFromFile(edt1.Text+search.Name);
     ftp.StoreFile(search.Name, False);
     DeleteFile(edt1.text+search.Name);
         end;
        until
          FindNext(search)<>0;
     FindClose(search);
     ftp.Logout;
     ftp.Free;