[karamba]

Вот так вот надо:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Response: TStringStream;
begin
   Response := TStringStream.Create('');
   IdHTTP1.Get('http://www.ya.ru',Response);
   Memo1.Text:=Response.DataString;
 Response.Free;
end;

Спасибо всем за помощь!!!