Пересчёт локальных координат контрола в экранные...

У каждого TControl есть пара методов:

var
   p, pl, pg : TPoint;
begin
  ...
  pg := TControl.ClientToScreen(p);
  pl := TControl.ScreenToClient(p);