pozycja kursora

witam!
mam małe pytanko. mam na formatce Panel. jak pobrać pozycje kursora myszki, gdy się nią porusza po panelu? jeśli się użyje GETCURSORPOS, to punkt 0,0 znajduje się w lewym, górnym rogu pulpitu, a mi chodzi o to aby punkt 0,0 znajdował się w górnym rogu panelu. dzięki za wszelką pomoc.

TPanel ma zdarzenia

OnMouseDown, OnMouseMove, OnMouseUp

przyjrzyj się im.

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel1.Caption:='X:'+Inttostr(x)+' || Y:'+Inttostr(y);
end;

tak sobie tylko pisze :P

dzięki! pozdrawiam!