[NumLock]

Код:

begin
  RichEdit1.Text:=IdHTTP1.Get('http://ya.ru');
end;

но "правильней":

Код:

var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=IdHTTP1.Get('http://ya.ru');
  finally
    AStrings.Free;
  end;
end;