帮我写写这个函数！？(30分)

我的PageControl的页标签上设置了右键弹出菜单，在菜单中有个“关闭”项。也就是当鼠标放在当前窗口的页标签上，点击“关闭”即可关闭。但我希望即使他不是当前窗口也能关闭！怎么做？
我的想法是写个函数读出鼠标下的那个页面，然后再执行关闭动作！请帮我写写这个函数，如果各位的方法跟我不一样，那就请告诉我。请高手帮忙！

procedure TForm1.PageControl1ContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
var
i : integer;
begin
for i := 0 to pagecontrol1.PageCount -1 do
if (pagecontrol1.TabRect(i).TopLeft.X < MousePos.X) and
(pagecontrol1.TabRect(i).TopLeft.Y < MousePos.Y) and
(pagecontrol1.TabRect(i).BottomRight.X > MousePos.X) and
(pagecontrol1.TabRect(i).BottomRight.Y > MousePos.Y) then
pagecontrol1.ActivePageIndex := i;
end;
// close1-menuitem
procedure TForm1.Close1Click(Sender: TObject);
begin
pagecontrol1.ActivePage.Free;
end;

多人接受答案了。