Ich dachte bisher immer, TFileStream.Position stünde auf TFileStream.Size nach dem .Create? Zur Sicherheit würde ich das so machen:
Delphi-Quellcode:
FS:= TFileStream.Create(fmCreate or fmOpenWrite)
FS.Seek(0, soFromEnd); // oder: FS.Position:= FS.Size; (keine Ahnung was schneller ist ^^)
FS.Write(...
EDIT:
Noch vergessen, den "Egositen-Modus"
FS:= TFileStream.Create(fmCreate or fmOpenWrite or fmShareExclusive)
damit hier auch nix schief geht
Noch'n EDIT:
Grade gesehen, du willst ja nicht anhängen sondern ersetzen. Dann so:
Delphi-Quellcode:
FS:= TFileStream.Create(fmCreate or fmOpenWrite or fmShareExclusive);
FS.Size:= 0;
FS.Write(...