[Uniq!]

Для этих целей функция Есть,

Код:

TComponent.ClientToScreen

Я только не могу разобраться как она работает... что к чему лепит

Есть ещё её антоним...

Код:

ScreenToClient

Зачем воровать, всё уже своровано до нас. (С)