Idhttp Download fortsetzen

[Van HelF]

Delphi-Quellcode:

var fs:Tfilestream;
begin
  try
    if fileexists(edit2.text) then
    begin
      fs:=TFileStream.Create(edit2.text,fmOpenReadWrite);
      fs.Position:=fs.Size;
      IdHttp1.Request.ContentRangeStart:=fs.Position;
    end
      else
      fs:=TFileStream.Create(edit2.text,fmcreate or fmShareDenyWrite);
    IdHTTP1.Get(edit1.Text,fs);
  finally
    idhttp1.Free;
    fs.Free;
  end;

Leider genau das gleiche, der download fängt immer wieder von vorne an.