Delphi鼠标单击坐标

嗨，我有3个面板，分别由表格组成。我将点击事件分配给第3面板以获取坐标。

procedure TformMain.Panel3Click(Sender: TObject);
var
  pt : tPoint;
begin
  pt := Mouse.CursorPos;
  ShowMessage('X : ' + IntToStr(pt.X) + ' & Y : ' + IntToStr(pt.Y));
end;

这段代码有效，但是我不知道如何协调。从面板3的开始开始。我的意思是，当我单击panel3的顶部时，它的y坐标必须为0。

感谢您的建议。

ps：我的表单有一个主菜单，因此我尝试从pt.y中减去panel1的高度，但是我无法获得主菜单的高度。