[hkdkest]

Спасибо за идею. Только немного не так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    b:Tstream;
begin
b:=Tstream.Create;
s:=idHTTP1.get('http://codingrus.ru');
memo1.Lines.Text:=s;
end;