Ako nije kasno, ovo što je Savkić predložio možeš ovako:
Code:
...
procedure TMainForm.AppException(Sender: TObject; E: Exception );
begin
ShowMessage('Greska!'); //mozes upisati sta zelis
end;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
...
Naravno, AppException moraš deklarisati, prvo.
If you go out of your mind, do it quietly, so as not to disturb those around you...