Merlin спасибо большое за этот код! Я все ломал голову, как сделать относительно формы! )

Кусок кода Вам в руки:
var
pos2: TPoint;
begin
GetCursorPos(pos2); // координаты относительно экрана
pos2:=ScreenToClient(pos2); // координаты относительно клиентской формы
Image1.Left:= pos2.x; // для примера перемещаем картинку под курсор
Image1.Top := pos2.y;
end;

если на конкретном обьекте то
Zon.X:=MyMouse.CursorPos.X-Form1.Left-5-обьект.Left;
Zon.Y:=MyMouse.CursorPos.Y-Form1.Top-51обьект.Top;

а на форме так и росто ,Left; и .Top; пакатят :)

Для того чтобы координаты были относительно формы надо добавить ещё вот такое

...
var
Zon:TPoint;
...
begin
...
Zon.X:=MyMouse.CursorPos.X-Form1.Left-5;
Zon.Y:=MyMouse.CursorPos.Y-Form1.Top-51;
...
end;

где 5 - ширина левой границы формы а 51 - высота заголовка формы.

Эта программа даёт координаты не относительно формы а относительно всего экрана!