[Человек_Борща]

Код:

var
  P:TPoint;
begin
GetCoursorPos(P);
Form1.Top:=p.X;
Form1.Left:=p.Y;
end;