N nicklung Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-06 #2 var pp: Tpoint; x,y: integer; begin GetCursorPos(pp); x := pp.x; y := pp.y; end;