idhttp Not Connected как решить проблему?

[jone]

доброго время суток уважаемые форумчани помагите
на форме 1

object idhtp1: TIdHTTP
  MaxLineAction = maException
  Host = '***.net'
  AllowCookies = True
  HandleRedirects = True
  ProxyParams.BasicAuthentication = False
  ProxyParams.ProxyPort = 0
  Request.ContentLength = -1
  Request.ContentRangeEnd = 0
  Request.ContentRangeStart = 0
  Request.Accept = 'text/html, */*'
  Request.BasicAuthentication = False
  Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
  HTTPOptions = [hoForceEncodeParams]
  ConnectTimeout = 10000
  Left = 104
  Top = 16
end

антифриз,
таймеры с разными интервалами, и кнобка входа все они используют idhttp

при нажатии кнобки вход

  const
  sait='*****.net';

procedure TForm1.btn1Click(Sender: TObject);
var
  s:string;
  ik,lk:Integer;
begin
s:=idhtp1.Get('http://'+sait+'/reg.php?sc='+csget+'&mod=1');
.... ниже ещё пару гетов
и включение 4 таймеров

всё проходит удачно в первую минуту и эта кнобка работает на ура
но после прохождения интервала таймеров программа выдаёт ошибку

код одного из таймеров который запускается первый

object OnlinerSait: TTimer
  Enabled = False
  Interval = 180000
  OnTimer = OnlinerSaitTimer
  Left = 176
  Top = 16
end

procedure TForm1.OnlinerSaitTimer(Sender: TObject);
var
  s:string;
begin
Memo1.Lines.Add('--------------------------------');

s:=idhtp1.Get('http://'+sait+'/reg.php?sc='+csget+'&mod=3');

if Pos ('ok',s)>0 then   Memo1.Lines.Add('online') else Memo1.Lines.Add('Error');
end;

ошибка Not Connected и указывает на строчку с гетом

помагите исправить эту ерундень( сайт всегда доступен
непонимаю почему это происходит

[Stilet]

после прохождения интервала таймеров программа выдаёт ошибку

А что если так:

procedure TForm1.OnlinerSaitTimer(Sender: TObject);
var
  s:string;
begin
Memo1.Lines.Add('--------------------------------');
with idhtp1.Create(Nil) do begin 
 s:=Get('http://'+sait+'/reg.php?sc='+csget+'&mod=3');
 free;
end;
if Pos ('ok',s)>0 then   Memo1.Lines.Add('online') else Memo1.Lines.Add('Error');
end;

Так ошибки нет?

[jone]

---------------------------
****
---------------------------
Not Connected.
---------------------------
OK
---------------------------

вот такая ошибка точная

[jone]

добавил .connect()

теперь выдаёт

---------------------------
**
---------------------------
Already connected.
---------------------------
OK
---------------------------

[Stilet]

вот такая ошибка точная

Х.з. Видимо на портале стоит защита от ботов...

[jone]

хостинг мой что исправить?

[jone]

поменял юсер агента

[Stilet]

поменял юсер агента

Сработало?