delphi检测当前鼠标点击处是否在指定控件内部

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  mouse:TPoint;
  mouse_in_memo:Boolean;
begin
  GetCursorPos(mouse);
  mouse:=ScreenToClient(mouse);
  if mouse.Y <= (Memo1.Top+Memo1.Height) then
    mouse_in_memo:=true
  else
    mouse_in_memo:=false;
  N6.Enabled:=mouse_in_memo;
  N7.Enabled:=mouse_in_memo;
end;