[fpc-pascal] TEventLog.FileName : Hot to do an append to existing log file

[phoebus phoebus]

Hi,

I'm not understand how to use unit Teventlog to no create each time a new 
file but to append to an existing log file.

I want to do something like:

  assign(f,filename);
  if FileExists(filename) then Append(f)
                          else Rewrite(f);
  Writeln(f,FormatDateTime('dd/mm/yyyy hh:nn:ss  ',Now),msg);
  CloseFile(f);

Regards,