[DarkMoth]

День добрый. Подскажите знатоки в чём проблема.

И так.
Платформа Android. Надо содержимое MEMO загрузить на FTP в виде текстового файла.
Сейчас программа содержимое МЕМО пишет в файл, локально его сохраняет, потом файл отправляет на FTP и удаляет с телефона.

В принципе работает, текстовка появляется, НО программа зависает секунд на 20 и вылетает.

Код:

 procedure TForm.sendClick(Sender: TObject);
 begin
   begin
   idftp1.Host := 'ftp.*************.ru';
   idftp1.Username := '********';
   idftp1.Password := '********';
   idftp1.Port := 21;
   idftp1.connect;
   idftp1.ChangeDir('as');  //куда сохранять
   
 if idftp1.Connected then  //есть ли доступ к ФТП
   
 begin
    servstat.Text := 'сервер на связи';
    servstat.FontColor := TAlphaColorRec.green; //да
    end
    else
     begin
     servstat.FontColor := TAlphaColorRec.Red;  //нет       
     end;
   end;
     begin
     
memo1.Lines.SaveToFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ;
     idftp1.Put((TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')));
     deleteFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ;
     end;
      
if assigned(idftp1) then
      begin
      idftp1.Disconnect;
      idftp1.Free;
      end;
 end;

Админ: Пользуемся тегами при оформлении кода!

Кто подскажет, где я недоизвратился?