Wyjątki i messagi systemu.

Chciałem wyciągnąć komunikat systemu przy występowaniu wyjątku.
Urzywałem do tego funkcji API GetLastError czy jakoś tak.
Potem tłumaczyłem go na messag ,ale za każdym razem było 0.
0 - Operacja zakończona sukcesem

Jak pobrać kod i messag wyjątku??

Przyklad:

  try
  except
    on E: EDatabaseError do
      ShowMessage(E.Message);
  end;

yy nie tak!!!
Sam messag systemu bez wpisów znajdujących się w RTL-u!!!!
Np.
NIe można otworzyć pliku.
Same messagi wysłane przez shell32.dll!!!!