delphi 追写二进制文件

var
fs: TFileStream;
begin
  fs :=TFileStream.Create('文件名',fmOpenWrite);
  fs.Seek(0,soFromEnd);
  fs.WriteBuffer(buffer,bufersize);
  fs.Free;