как получить текст последней ошибки

[HellMercenariess]

Вместо того чтобы выводить сообщение окошком ошибки, только добавить в журнал.

try
..................
Except listBox1.Items.Add();
 finally
..................
 end;

[artemavd]

GetLastError

[phomm]

Try
...
Except
  on E: Exception do 
     listBox1.Items.Add(E.Message);
end;

[evg_m]

try
....
except
  on e: Exception do begin
   apendlog(e.Message); // запись в журнал текста сообщения об ошибке
   raise; // возобновление состояния "ошибка" (при необходимости)
  end;
end;

[HellMercenariess]

Благодарю всех за помощь.