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

var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;
  try
    HTTP.RangeStart := StrToIntDef(Edit1.Text, 0);
    HTTP.RangeEnd := StrToIntDef(Edit2.Text, 0);
    if HTTP.HTTPMethod('GET', Edit3.Text) then
    begin
      Label1.Caption := IntToStr(HTTP.Document.Size);
      Memo1.Clear;
      Memo1.Lines.Assign(HTTP.Headers);
    end
    else
      ShowMessage(HTTP.ResultString);
  finally
    HTTP.Free;
  end;
end;

var
  HTTP: THTTPSend;
  ms: TMemoryStream;
begin
  HTTP := THTTPSend.Create;
  ms := TMemoryStream.Create;
  try
    HTTP.RangeStart := StrToIntDef(Edit1.Text, 0);
    HTTP.RangeEnd := StrToIntDef(Edit2.Text, 0);
    if HTTP.HTTPMethod('GET', Edit3.Text) then
    begin
      Label1.Caption := IntToStr(HTTP.Document.Size);
      Memo1.Clear;
      ms.LoadFromStream(HTTP.Document);
      ms.SaveToFile('file.txt');
      ms.Free;
    end
    else
      ShowMessage(HTTP.ResultString);
  finally
    HTTP.Free;
  end;
end;

  public
    procedure MyFilter(Sender: TObject; var Value: AnsiString);
  end;
 
var
  Form2: TForm2;
  AllDocument: string;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var HTTP: THTTPSend;
begin
  AllDocument:='';
  HTTP:=THTTPSend.Create;
  try
     HTTP.Sock.OnReadFilter:=MyFilter;
     if HTTP.HTTPMethod('GET',Edit1.Text) then
       begin
         label5.Caption:=IntToStr(HTTP.DownloadSize);
         ShowMessage('Документ скачан на 100%');
 
       end;
  finally
    HTTP.Free;
  end;
end;
 
procedure TForm2.MyFilter(Sender: TObject; var Value: AnsiString);
begin
  AllDocument:=AllDocument+ Value;
  if (pos('<title>',AllDocument)>0)and (pos('</title>',AllDocument)>0) then
    begin
      Label3.Caption:=GetBetween('<title>','</title>',AllDocument);
      label5.Caption:=IntToStr(Length(AllDocument))+' байт';
      TBlockSocket(Sender).CloseSocket;
    end;
end;