Witam
Próbuję w swoim projekcie w Lazarusie uruchomić obsługę wyjątków.
Korzystając z kompendium wiedzy 4p (Wyjątki).
Wstawiłem do programu coś takiego :
procedure MyAppException(Sender: TObject; E : Exception);
begin
Application.ShowException(E);
showmessage('WYSTĄPIŁ NIEZNANY BŁĄD');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyAppException;
end;
Przy próbie uruchomienia otrzymuję błąd:
unit1.pas(798,30) Error: Wrong number of parameters specified for call to "MyAppException"
Coś nie tak jest w tym poradniku czy ja przy kopiowaniu coś nie tak zrobiłem?