Delphi/Lazarus: Récupérer la position X/Y d'un contrôle par rapport à l'écran

Aujourd'hui, je voudrais vous montrer comment obtenir les coordonnées X / Y d'un contrôle par rapport aux coordonnées de l'écran (et non au système de coordonnées du formulaire). 

Dans l'exemple, nous récupérons la position d'un TPanel nommé Panel1, mais vous pouvez également utiliser n'importe quel autre contrôle:

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

Cela récupère la position supérieure gauche du panneau par rapport à l'écran et écrit la position dans le titre de Form1.