[0nni]

Код:

var cur : TPoint;
begin
cur := TControl(Sender).ScreenToClient(Mouse.CorsorPos);