Left i Top bezwzględne

Właściwości Left i Top komponentów określają ich położenie względem rodzica (Parent). Jak pobrać bezwzględną pozycję? (względem ekranu, tak jak forma).

próbowałem w pętli pobierać i dodawać poycje kolejnych rodziców, aż do parent=nil, ale jeśli ustawi się Align jakiegoś Panelu (ew. Scrollboxa) na alClient, to Left i Top zwraca równe zeru.

dzięx

Funkcja:

function GetPosition(Control:TControl):TPoint;
begin
result:=Point(0,0);
result:=Control.ClientToScreen(result);
end;

Użycie:

var P:TPoint;
begin
P:=GetPosition(Button1);
Button1.Caption:=IntToStr(P.X)+', '+IntToStr(P.Y);
end;