Delphi: X/Y Position eines Controls relativ zum Bildschirm bestimmen

Heute möchte ich euch eine Möglichkeit zeigen, wie ihr die X/Y Koordinaten eines Controls relativ zum Bildschirm bestimmen könnt (und nicht relativ zum Koordinaten-System der Form). 

In dem Beispiel bestimmen wir die Position eines TPanels mit dem Namen Panel1, aber natürlich kann man auch jedes beliebige andere Control verwenden:

var
  P: TPoint;
begin
  P:=Panel1.ClientToScreen(Point(0,0));
  Form1.Caption:=inttostr(P.X)+' '+inttostr(P.Y));
end;

Dies bestimmt die Position des Panels oben links relativ zum Bildschirm und schreibt die Position in die Caption von Form1.