[Delphi] Wątki a Wyjątki czyli Exceptions w TThread

<B>Jak wyłapać msg wyjątku jak znajduje się w wątku? [???] </B>
Bo je BlokujE!!! [krzyk]

Próbowałem już zakleić onException i nic z tego!!!
Potrzebuje pomocy! ;-( </wiki></url>

Hmm - przekonany nie jestem - ale spróbuj...

type
  TMyThread = class(TThread)
  private
    ...
   Exp: Exception;
   ...
   end;


procedure TMyThread.Proc; // przykłądowa procedura
begin
  try
    ...
  except
    Exp := ExceptObject as Exception;
   Synchronize(Wyjatek);     
end;

procedure TMyThread.Wyjatek;
begin
  Application.ShowException(Exp);
end;