Всем знакомый обработчик ошибок.
Суть кода - это попробовать подключиться к фтп. И если нет подключения, то под win срабатывает как по учебнику.
А вод под Android приводит к полному вылетанию.
Происходит именно на строчке "idftp1.connect"
Что может быть не так?
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;