[vitek]

При написании веб-сервера, используя компонент TidHTTPServer, на событие OnCommandGet я ставлю

паузу 10 секунд с помощью команды Sleep(10000) и вывожу текущее время. Запускаю три

эксплоурера с одним и тем же адресом....
и с интервалом 1 секунду из обновляю... Первые два работают одновременно, а третий ждёт

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

вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.IdHTTPServer1.Active:=True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Self.IdHTTPServer1.Active:=False;
end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
Sleep(10000);
AResponseInfo.ContentText := TimeToStr(Now);
end;