Сохранить описание исключения в файл

[Luxor]

Можно ли как-нибудь сохранять в файл исключения, которые возникают в процессе работы программы (вести этакий ЛОГ-файл)
В программе много мест, где я использую TRY - EXCEPT - END;
после EXCEPT конечно прописана обработка ситуации, но вот как сохранить это в файле?

[Brainenjii]

Код: Выделить всё

Program Test;
Uses
  SysUtils, Classes;
Var
  i: Single;
Begin
  Try
    i := 1 - 1;
    i := 1 / i;
  Except On E: Exception Do
    With TStringList.Create Do
      Begin
        Text := E.Message;
        SaveToFile('1.txt');
        Free;
      End;
  End;
End.

[Luxor]

спасибо. Brainenjii