Datei wird beim erstellen gelöscht

[RavenIV]

ich benutze TFileStream, um einen text in eine datei zu schreiben.
jedesmal, wenn ich TFielStream.create aufrufe, wird die datei aber gelöscht.

mein System: delphi7 mit WinXP.

hier der code:

Delphi-Quellcode:

procedure TFoRemotetest.IBSQLMonitorSQL (EventText: string; EventTime: TDateTime);
var
  FileName: string;
  EventStream: TStringStream;
  FileObj: TFileStream;
begin
  FileName := 'D:\db_i.log';
  EventStream := TStringStream.Create(EventText);
  FileObj := TFileStream.Create (FileName, fmCreate);
  FileObj.CopyFrom(EventStream,0);
   FileObj.Free;
end;

irgendeine lösung?

gruessle