EventLog: Wieso wird log-Datei immer neu angelegt?

[AlexII]

Hallo,

nutze die Komponente EventLog und folgenden Code. Nun wird die test.log-Datei beim Klick auf Button1 immer neu angelegt obwohl sie schon existiert. Wieso ist das so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  EventLog1.LogType := ltFile;
  EventLog1.FileName := 'D:\myprog\eventlog\test.log';
  EventLog1.Active := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    EventLog1.Log('This is a log.');
    EventLog1.Warning('This is a warning.');
    EventLog1.Error('This is a error.');
    EventLog1.Info('This is a info.');
    EventLog1.Debug('This is a debug.');
end;

Danke!