Componentes - pegar a posicao relativa em relacao ao screen

// posicao relativa de um componente a Screen.

var

  Rct: TRect;

begin

  GetWindowRect(TWinControl(Screen.ActiveControl).Handle, Rct);

  JanelaHelpForm.Top  := Rct.Top + Screen.ActiveControl.Height + 1;

  JanelaHelpForm.Left := Rct.Left;

end;