[Delphi] Obsługa Menu DVD

Mam taki kod:

procedure TForm1.VideoWindowMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  Point : TPoint;
  DVDControl2 : IDVDControl2;
begin
  if FilterGraph.Active then
    If Succeeded(FilterGraph.QueryInterface(IID_IDVDControl2, DVDControl2)) then
    begin
      Point.x := x;
      Point.y := y;
      DVDControl2.SelectAtPosition(Point);
      DVDControl2 := Nil;
    end;
end;

Chcę żeby po najechaniu na jakikolwiek przycisk w menu, kursor zmienił się z crDefault na crHandPoint..... a po zjechaniu z przycisku z powrotem wrócił do crDefault....(taj jak np. WMP) Jak mogę to zrobić? Próbowałem na różne sposoby i nic :-/

jakiego komponentu używasz do menu dvd?

DSPack....
Ale IDVDControl2 - znajduje się w pliku DirectShow9.pas...... po prostu do listy uses dołączam DirectShow9......

Pomoże ktoś???