[NIch]

Попробуй так...

Код:

procedure TForm1.okClick(Sender: TObject);
var
 IdHTTP1 : TIdHTTP;
 t:string;
begin
 try
  idhttp1.Create;//создаем объект
  t:=idhttp1.get('http://lenta.ru/');
 finally
  idhttp1.free;//освобождаем объект
end