Не выходит
мобилка всё равно вылетает.
Напишите пожалуйста код для
get запрса который чекает соединение с интернетом.
Сейчас это выглядит так
Код:
procedure Form.Button1Click(Sender: TObject);
begin
try
memo2.Text := idhttp.Get('http://google.com');
servstat.FontColor := TAlphaColorRec.green;
except
servstat.FontColor := TAlphaColorRec.Red
end;
idHttp.Free;
end;