procedure TForm1.GetButtonClick(Sender: TObject);
var
FileName:String;
begin
HttpCli1.ContentRangeBegin := IntToStr(1024*1024);
HttpCli1.ContentRangeEnd := '';
GetButton.Enabled := FALSE;
HttpCli1.Head;
FileName:=HttpCli1.DocName;
FileName:='C:\'+FileName;
// if not FileExists(FileName) then
// FileClose(FileCreate(FileName));
HttpCli1.RcvdStream := TFileStream.Create(FileName, fmCreate);
// HttpCli1.RcvdStream := TFileStream.Create(FileName, fmOpenReadWrite);
// HttpCli1.ContentRangeBegin := IntToStr(HttpCli1.RcvdStream.Size);
// if HttpCli1.ContentRangeBegin='0' then HttpCli1.ContentRangeBegin:='';
// HttpCli1.RcvdStream.Seek(0,soFromEnd);