WindowProc einer Klasse?

[TriphunEM]

Hallo,

ich weiß nicht wie ich den folgenden Code ergänzen soll um die Windows-Botschaften einer Klasse einer Komponente abzufangen!
Der Code funktioniert wenn ich die eigentliche Komponente nehme (siehe Kommentare). Da aber die Klasse scheinbar ein eigenes Fensterhandle hat, komm ich so nicht ran.

Die Klasse heißt TTBToolbar !

Delphi-Quellcode:

private
  OldProgressWndProc: TWndMethod;
  procedure ProgressWndProc(var Msg: TMessage);
...
procedure TForm1.FormCreate(Sender: TObject);
var Index: integer;
begin
  // OldProgressWndProc:=TBToolbar1.WindowProc;
  // TBToolbar1.WindowProc:=ProgressWndProc;
  OldProgressWndProc:= ???
  ???:=ProgressWndProc;
end;

procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin
  if msg.Msg = WM_RBUTTONDOWN then
  begin
    // Hier soll meine Aktion ausgeführt werden.
  end;
  OldProgressWndProc (Msg);
end;

Vielen Dank im voraus...