Wo fängt man Windows Messages ab?

[Luckie]

Das reagiert leider nicht so, wie ich dachte dass es reagiert.

Delphi-Quellcode:

procedure TForm1.MyMinimizeProc(Sender: TObject);
begin
  Messagebox(Self.Handle, 'Minimize', 'Bar', 0);
end;

procedure TForm1.MyRestoreProc(Sender: TObject);
begin
  Messagebox(Self.Handle, 'Restore', 'Bar', 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := MyMinimizeProc;
  Application.OnRestore := MyRestoreProc;
end;