Загрузка части страницы

 Memo1.Text:= IdHTTP1.head('https://www.cyberforum.ru/'); //нерабочий код

procedure TForm1.b1Click(Sender: TObject);
var
  Range: TIdEntityRange;
const
  URL='https://www.cyberforum.ru/';
begin
  Range := IdHTTP1.Request.Ranges.Add;
  Range.StartPos := 0;
  Range.EndPos := 1000;
  m1.Lines.text:=IdHTTP1.Get(URL);
end;

IdHTTP1.Head('https://www.cyberforum.ru/');
  Memo1.Lines := IdHTTP1.Response.RawHeaders;

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  try
    Memo1.Lines.Text := IdHTTP1.Get('http://www.webdelphi.ru');
  except
    on E: EIdConnClosedGracefully do
      ShowMessage('Сработало исключение EIdConnClosedGracefully');
    on E: EIdException do
      ShowMessage('Сработало другое исключение Indy (EIdException)');
  end;
end;
 
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
  S: TStringStream;
begin
  if AWorkCount > 1024 then
  begin
    S := TStringStream.Create;  //ошибка здесь
    try
      S.LoadFromStream(TIdHTTP(ASender).Response.ContentStream); //получили текст
      Memo1.Lines.LoadFromStream(S); //вывели в Memo
    finally
      TIdHTTP(ASender).Socket.Close; //в любом случае закрыли соединение
      S.Free;
    end;
  end;
end;
 
end.

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   Caption:= IntToStr(AWorkCount);
 
      if AWorkCount > 500 then
     Exit;
end;