// TIdHTTP　フォームに貼っていないのなら、createがいる。
procedure TForm1.Button1Click(Sender: TObject);
var
Readbuff : string;
Indy: TIdHTTP;
begin
Indy := TIdHTTP.create(self);
try
Readbuff := indy.get('http://www.yahoo.co.jp/');
showmessage(Readbuff);
finally
Indy.free;
end;
end;