Hvordan kan man opfange tastetryk

Jeg har et videokomponent (TActivemovie) som jeg gerne vil bygge lidt videre på.
Jeg har forløbig indbygget OnMouseLeave og OnMouseEnter ved hjælp af nedenstående unit der opretter et nyt komponent.

TActivemovie har indbygget at man kan styre afspilningen ved hjælp af tastaturet.
Mit problem er at disse tastaturfunktioner ( som ikke umiddelbart kan slås fra) blokerer for for mine egne genvejstaster.
Hvordan kan man opfange tastetryk og'override! de indbyggede tastaturfunktioner. Noget i stil med de OnMouseLeave og OnMouseEnter jeg har tilføjet.


Erik

******************************************************

unit NewActiveMovie;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, AMovie;

type
  TEnterEvent = procedure(Sender: TObject) of object;
  TLeaveEvent = procedure(Sender: TObject) of object;


  TVideo2 = class(TActiveMovie)
  private
    { Private declarations }
    FOnEnter: TEnterEvent;
    FOnExit: TLeaveEvent;
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter: TEnterEvent read FOnEnter write FOnEnter;
    property OnMouseLeave: TLeaveEvent read FOnExit write FOnExit;

  end;

procedure Register;

implementation

procedure TVideo2.CMMouseEnter(var msg: TMessage);
begin
  inherited;
  if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TVideo2.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  if Assigned(FOnExit) then FOnExit(self);
end;

procedure Register;
begin
  RegisterComponents('Samples', [TMyVideo]);
end;

end.