Como puedo leer una pagina web y almacenarla en una variable

[ecfisa]

Hola darkamerico.

Proba de este modo:

Código Delphi [-]
...
uses IdHTTP;

function GetURLText(const aURL: string): string;
begin
  with TIdHTTP.Create(nil) do
  try
    Result := Get(aURL);
  finally
    Free;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  URLCNST = 'http://www.sbs.gob.pe/0/modulos/jer/jer_interna.aspx?are=0&pfl=0&jer=147';
var
  Str: string;   
begin
  Str := GetURLText(URLCNST);
  ...
end;

Saludos.