Criando um arquivo de log

procedure AddLog;
var
   log: textfile;
begin
   try
       AssignFile(log, 'c:\log.log');
       if not FileExists('c:\log.log') then Rewrite(log,'c:\log.log');
      Append(log);
      WriteLn(log, 'informações a serem inclusas');
  finally
      CloseFile(log);
      end;
end;