[lucasarts_18]

Hola Foristas:


Logré lo que quería:

Código Delphi [-]
 
 
procedure TFrmArchivos.btnAgregarClick(Sender: TObject);
var
Boton_Cory,Boton_Corx : Integer;
P ,Cord_Pantalla : TPoint;
begin
   //MnuBtnAgregar.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
   Boton_Cory := btnAgregar.Top; // + 17
   Boton_Corx := btnAgregar.Left;
   Cord_Pantalla.X := Boton_Corx;
   Cord_Pantalla.Y := Boton_Cory;
   P := Self.ClientToScreen(Cord_Pantalla);
   MnuBtnAgregar.Popup(P.X ,P.Y + - 48); // y = Vertical
end;

a la coordenada Y le reste - 48 y quedo justito como quería, gracias por las nuevas idea expuestas.
Saludos.
Aaron.