procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTP1.Head('http://210.51.190.26:8000/1.rar');
  Caption := IntToStr(IdHTTP1.Response.ContentLength);
end;