Delphi/Lazarus: Recuperar la posición X/Y de un control en relación con la pantalla

Hoy, me gustaría mostrarle una forma de cómo obtener las coordenadas X/Y de un control en relación con las coordenadas de la pantalla (y no con el sistema de coordenadas del formulario). 

En el ejemplo, estamos recuperando la posición de un TPanel llamado Panel1, pero también puede usar cualquier otro control:

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

Esto recupera la posición superior izquierda del Panel en relación con la pantalla y escribe la posición en el título de Form1.