Delphi调用Flash文件后，如何设置热区？

Question

这是我昨天给别人回答的，你把image改为flash的控件就应该可以的
  我给了代码，自己看，要灵活一点的话就定义一个Trect；
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (x<50) and (y<50) then
  image1.Cursor:=crhandpoint
else
image1.Cursor:=crdefault;end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<50) and (y<50) then
  showmessage('i love u')
  else
  showmessage('i dont love u');
end;