procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException:=DoException; end;
procedure TForm1.DoException(Sender: TObject; E: Exception); begin ListBox1.Items.Add(E.Message+' ['+E.ClassName+']'); end;