Как добавить ведение лога в свою программу?

[raxp]

у меня усе ок... вот вам еще два варианта... по-простому...

procedure log(EventText : String); //LOG-
var s : string;
    tt: TStringList;
begin
 s:= extractfilepath(paramstr(0));
 tt:= TStringList.Create;
 if FileExists(s+'log.txt') then tt.LoadFromFile(s+'log.txt');
 //
 tt.Add(formatdatetime('dd:mm:yyyy ',date)+ formatdatetime('hh:mm:ss',time) + ' | ' + EventText);
 //tt.Add('');
 tt.SaveToFile(s+'log.txt');
 tt.Free
end;

procedure log2(EventText: String); //LOG-
var f: TextFile;
begin
 AssignFile(f,'log.txt');
 {$I-}
 Append(f);
 if IOResult<>0 then begin
  {$I-}
  Rewrite(f);
  {$I+}
  if IOResult<>0 then Exit
 end;
 WriteLn(f, formatdatetime('dd:mm:yyyy ',date)+ formatdatetime('hh:mm:ss',time) + ' | ' + EventText + #13);
 CloseFile(f)
end;

[Человек_Борща]

raxp, более полезная вещь=) буду и её использовать=)

[maxionans]

если конкретнее можно ли предупреждать сообщения об Обращении программы к недопустимому адресу в памяти(acces violatons или OpenError's).. в место них выполнять выход из программы а информацию писать в файл...

Советую глянуть в сторону фреймворка MadCollection. Там есть модуль madExcept, с его помощью очень удобно отлавливать необработанные исключения - он тебе и ошибку покажет, и в файл сохранит, и в буфер обмена скопирует, и на e-mail вышлет. При этом покажет стек вызовов и еще кучу другой полезной информации.