date ikopieren mit fortsetzen funktion

[Van HelF]

hab ich versucht, nur leider wird die datei immer wieder erstetz und neu von vorne geschreiben.

Delphi-Quellcode:

procedure kopieren;
var Quelle, Ziel, Zielgr:Tfilestream;
    gr:int64;
begin
  Quelle:=Tfilestream.Create('D:\test.exe',fmOpenRead or fmShareDenyNone);
  Zielgr:=Tfilestream.Create('D:\test2.exe',fmOpenRead or fmShareDenyNone);
  gr:=zielgr.Size;
  zielgr.Free;
  Ziel:=Tfilestream.Create('D:\test2.exe',fmCreate or fmShareDenyWrite);
  quelle.position:=gr;
  try
    Ziel.CopyFrom(Quelle, 0);
  finally
    Ziel.free;
  end;
   Quelle.free;
end;