Error al motrar el estado en Statusbar

[ecfisa]

Hola feliz-58.

El error es claro, no está declarado el procedimiento DisplayException.

Un ejemplo muy simplificado:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;
    ...
    procedure FormCreate(Sender: TObject);
  private
    procedure DisplayException(Sender: TObject; E: Exception);
  public
  end;
...

implementation

procedure TForm1.DisplayException(Sender: TObject; E: Exception);
begin
  // Tratar la excepción
  // ...
  StatusBar1.Panels[0].Text := E.Message;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := DisplayException
end;

...

Saludos.