Помогите с потоком

[lord24]

вот

procedure TMyThread.Execute;
var
PostData:TStringList;
begin
PostData:=TStringList.Create;                                    //      отправка на сервер запроса на доступность сайта
PostData.Clear;
PostData.Add(AnsiToUTF8('1'));                                      //Здесь описывается код, который будет выполняться в потоке
while not Terminated do
begin
html1:=Form1.IdHTTP1.Post('http://www.site.ru');
sleep(2000);
end;
end;

[come-on]

всё непрвильно
поток не должен знать ни о каких формах

[lord24]

А по подробнее...
Так ведь тоже работает.

[Stilet]

А по подробнее...

IdHTTP1 нужно создавать внутри потока, а не обращаться к компоненту формы.

[come-on]

Так ведь тоже работает.

Это просто везет, но когда нибудь не повезет и устанешь искать проблему.

[lord24]

Простите что долго, но вот...
Если делаю так

procedure TMyThread.Execute;
var
PostData:TStringList;
IdHTTP2: TIdHTTP;
begin
PostData:=TStringList.Create;                                    //      отправка на сервер запроса на доступность сайта
PostData.Clear;
PostData.Add(AnsiToUTF8('1'));                                      //Здесь описывается код, который будет выполняться в потоке
while not Terminated do
begin
html1:=IdHTTP2.Post('http://www.Site.ru',PostData);
sleep(2000);
end;
end;

то получается следующая ошибка

Получается, что как бы не отправляет или не получает, хотя если на прямую в скрипт отправить запрос, то ответ верный приходит.

[Stilet]

IdHTTP2 не создан.

procedure TMyThread.Execute;
var
...
begin
 IdHTTP2:=TIdHTTP.Create(nil);
...
while not Terminated do
begin
html1:=IdHTTP2.Post('http://www.Site.ru',PostData);
sleep(2000);
end;
...
IdHTTP2.Free; IdHTTP2:=nil;
end;

[lord24]

Странно, но тормоза не пропали. Если взять за окно программы и водить им по раб. столу, то тормозит на 4 сек и отпускает.
Вот код в таймере

procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;
PostData:TStringList;
begin
 if Html1='1' then //сайт доступен
  begin
 MyThread.Suspend;
 PostData:=TStringList.Create;                                    
 PostData.Clear;
 html2:=IdHTTP1.Post('http://www.Site.ru,PostData);   
 s:=html2;
   label15.Caption:=s;
 Sleep(2000);
 MyThread.Resume;
 end else begin
 //сайт не доступен продолжаем работу с программой
 Timer1.enabled:=false;
 If MessageDlg('Нет соединения с сайтом! Продолжить без соединения?'+ html3,mtConfirmation, [mbYes,mbNo],0)=mrYes then
  begin
  MyThread.Terminate;
  Timer1.enabled:=false;
  end else begin
  Application.Terminate;
  end;
 end;
end;

Если сайт доступен, то останавливаем поток, что бы он не слал запрос на доступность сайта, и проверяем если нужные нам данные на сайте и заносим их в лабел. спим, чтобы небыло много запросов секунду и запускаем поток
Отчего может все притормаживать?

[Stilet]

Sleep(2000);

Это что за Брэд Пыта?

[lord24]

Если это убрать, а оно вроде как и ни не нужно, то после закрытия вылазит ошибка

с строке процедуры потока

html1:=IdHTTP2.Post('http://www.Site.ru',PostData);