Fórum Trabalhando com arquivo #191806

constructor TLog.Inicializar(sNomeArqLog : string);
begin
  sArquivoLog := sNomeArqLog;
  sRetornarLoginRede(sUsuario);
  AssignFile(ArqLog, sArquivoLog);
end;

procedure TLog.GeraLog(sMensagem : string);
begin
 sDataHora := FormatDateTime(´dd/mm/yyyy hh:nn:ss´, Now);
 try
   Append (ArqLog);
   Writeln(ArqLog, ´[´, sDataHora + ´ ´ + sLogin + ´]´ + sMensagem);
   CloseFile(ArqLog);
 except
   //
 end;
end;

Append (ArqLog);