All familiar error handler.
The essence of the code is to try to connect to the FTP. And if there is no connection, then under win it works like a textbook.
And the waters under Android leads to full flight.
It happens on the line "idftp1.connect"
What could be wrong?
procedure TForm.Memo1Click(Sender: TObject); procedure conn; // советовали загнать соединение в отдельную процедуру - легче не стало Begin idftp1.connect; End; begin if idftp1.Connected = false then // на связи ли сервак? try // если нет пробуем соединиться conn; servstat.Text := 'сервер на связи'; servstat.FontColor := TAlphaColorRec.green; send.Enabled := true; except //on E: EConvertError do // ошибка соединения begin servstat.FontColor := TAlphaColorRec.Red end;