Idhttp Download fortsetzen

[Van HelF]

Ich habe folgenden code:

Delphi-Quellcode:

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

Doch leider fühet dies beim abbrechen und fortsetzen dazu, dass die datei die dopplete größe hat und wieder von vorne anfängt zu laden (von der letzten pos an).