[mir546]

Код:

program Project1;
uses
  System.SysUtils,IdHTTP,IdIcmpClient;
type
idHTTP = TidHTTP;
IdIcmpClient = TIdIcmpClient;

var
    idhttp1:  TIdHTTP;
    IdIcmpClient1:  IdIcmpClient;
    {$R *.res}
begin
    IdIcmpClient1:=TIdIcmpClient.Create(nil);
    IdIcmpClient1.Host:='google.ru';
    IdIcmpClient1.ReceiveTimeout:=3000;
    IdIcmpClient1.Port:=80;
    While true do
    begin
      IdHTTP1:=TidHTTP.Create(nil);
      if (IdHTTP1.Get('http://site.ru/start.txt')='1') then
      begin
        IdIcmpClient1.Ping;
        IdHTTP1.Get('http://site.ru/info.php?ping='+FloatToStr ((IdIcmpClient1.ReplyStatus.MsRoundTripTime)/1000));
      end;
      IdHTTP1.Free;
      sleep(5000);
    end;
end.

[NumLock]

Код:

IdIcmpClient1.Free;

[mir546]

Сообщение от NumLock

Код:

IdIcmpClient1.Free;

не помогло(

в инете нашел инфу что indy много глючный и на Win7 утечка это норма. Происходит это из-за косяка майкрософт. какого не уточнял...
Рекомендуют юзать Synapse

только вот чё то не подключается..

[NumLock]

видимо не туда вставил) и зачем вообще что-то стороннее использовать, когда есть православный WinHTTP.

[mir546]

Сообщение от NumLock

видимо не туда вставил) и зачем вообще что-то стороннее использовать, когда есть православный WinHTTP.

Вставил после IdHTTP1.Free;
а куда нужно?