Datei wird beim erstellen gelöscht

[RavenIV]

hier nun eine mischung aus allen vorschlägen:

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 (DateTimeToStr (EventTime) + EventText + ''#13#10'');
  if FileExists (FileName) then
    FileObj := TFileStream.Create (FileName, fmOpenReadWrite or fmShareDenyNone)
  else
    FileObj := TFileStream.Create (FileName, fmCreate or fmShareDenyNone);
  try
    FileObj.Seek (FileObj.Size, soFromBeginning);
    FileObj.CopyFrom (EventStream, 0);
  finally
    FileObj.Free;
  end;
  EventStream.Free;
end;

hier dürfte alles OK sein...