Pozycja myszki na Formie

Mam pytanie, jak pobrać pozycje kursora myszki względem Formy (ewentualnie jakiegoś komponentu). znalazłem jak pobrać pozycje używając

getCursorPos(p)

ale to pobiera pozycje wględem ekranu.
potrzebuje coś w tym stylu:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Edit1.Text:=IntToStr(x);
  Edit2.Text:=IntToStr(y);
end;

Tylko, że jak np. najade na inny komponent to już nie bedzie mi podawać pozycji.

ScreenToClient

Zdaje się (na 90%), że lParam posiada tą informacje (relatywnie do okna) we wszystkich komunikatach..

WM_LBUTTONDOWN
WM_LBUTTONUP
WM_LBUTTONDBLCLK
WM_MBUTTONDOWN
WM_MBUTTONUP
WM_MBUTTONDBLCLK
WM_RBUTTONDOWN
WM_RBUTTONUP
WM_RBUTTONDBLCK