MainForm-Messages in Komponente hooken

[Helmi]

Hallo,

in dem Thread wird gezeigt, wie man eine Message hookt.

Nun wollt ich von einer Komponente aus, die MainForm hooken (genauer gesagt, auf das Minimieren reagieren).

Nur leider bekomm ich dabei immer einen EAccessViolation.

der Code in der Komponente schaut so aus:

Delphi-Quellcode:

unit component1;

interface

uses
  Forms, SysUtils, Classes, Messages, Controls, Dialogs, Windows;

type
  Tcomponent1 = class(TComponent)
  private
    pOldEdProc : TWndMethod;
    procedure EdProc(var Message: TMessage);
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor Tcomponent1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  pOldEdProc := Application.MainForm.WindowProc;
  Application.MainForm.WindowProc := EdProc;
end;

procedure Tcomponent1.EdProc(var Message: TMessage);
begin
  pOldEdProc(Message); // alten Message-Handler rufen
  // Eigene Funktionalität 
  with Message do 
    case Msg of
      WM_Size:
        If Message.WParam = SIZE_MINIMIZED then
          ShowMessage('minimiert');
    end;
end;

procedure Register;
begin
  RegisterComponents('extras', [Tcomponent1]);
end;

end.

Was mach ich falsch? - bzw. Wie geht es richtig?