Criando um arquivo de texto

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;