type
TShockwaveFlash{или как его назвали} = class(ShockwaveFlashObjects_TLB.TShockwaveFlash)
private
procedure WMPopupMenu(var Message: TWMMouse); message WM_RBUTTONDOWN;
end;

type
 TForm1 = class(TForm)
   ShockwaveFlash1: TShockwaveFlash;
   PopupMenu1: TPopupMenu;
   mnuTest1: TMenuItem;
   procedure mnuTest1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TShockwaveFlash }

procedure TShockwaveFlash.WMPopupMenu(var Message: TWMMouse);
var
CurPos: TPoint;
begin
GetCursorPos(CurPos);
Form1.PopupMenu1.Popup(CurPos.X, CurPos.Y);
end;

procedure TForm1.mnuTest1Click(Sender: TObject);
begin
ShowMessage('Test');
end;

end.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, AppEvnts;

type
 TForm1 = class(TForm)
   ShockwaveFlash1: TShockwaveFlash;
   ApplicationEvents1: TApplicationEvents;
   procedure ApplicationEvents1Message(var Msg: tagMSG;
     var Handled: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
FlashPlayerClass: array[0..MAX_PATH-1] of Char;
begin
Case Msg.message OF
 WM_RBUTTONDOWN:
              begin
                GetClassName(Msg.hwnd,FlashPlayerClass,MAX_PATH);
                if  (FlashPlayerClass = 'MacromediaFlashPlayerActiveX') then
                Handled:= True;
              end;
end;
end;

end.

const
FlashPlayerClassName: String = 'MacromediaFlashPlayerActiveX';
WM_WINMENUKEY = $100;
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
TempClass: array [0..49] of Char;
begin
With Msg Do Begin
 Case message Of
    WM_RBUTTONDOWN:
    Begin
      GetClassName(hwnd,TempClass,50);
      if  (StrPas(TempClass) = FlashPlayerClassName) then Handled:= True;
    End;  // WM_RBUTTONDOWN
   WM_WINMENUKEY: Handled:= True;
 End; // Case
End; //With

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:= WideString(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + '01.swf');
end;

 Case message Of
  WM_RBUTTONDOWN, WM_WINMENUKEY:
  Begin
     GetClassName(hwnd,TempClass,50);
     if  (StrPas(TempClass) = FlashPlayerClassName) then Handled:= True;
   End;