ClientToParent

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод визуальных компонентов ClientToParent";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Перемещайте указатель мыши над панелью";

// Панель
pnl=new TPanel(frm);
pnl.Caption="Панель";
pnl.BorderStyle=bsSingle;
pnl.Left=pnl.Top=15;
pnl.Width =frm.ClientWidth-pnl.Left*2;
pnl.Height=stb.Top-pnl.Top*2;
pnl.OnMouseMove=pnl_MouseMove;

frm.ShowModal();

// Обработчик события OnMouseMove
function pnl_MouseMove(pnl,shift,x,y)
{
  var pt=new TPoint();

  pt.x=x;
  pt.y=y;
  pt=pnl.ClientToParent(pt);
  stb.SimpleText=" Панель: "+x+","+y+" Форма: "+pt.x+","+pt.y;
  pt.Delete();
}