var rcvrdata: TStringStream;
....
   rcvrdata := TStringStream.Create('');
   try
     HTTP.Get('http://сайт.ру', rcvrdata);
   except
     //FrmMain.WriteToLog('Не удалось посетить страницу');
     exit;
   end;