[DOR]

Может кому пригодиться

Код:

procedure Tf_Inform.bt_Select_OtdelClick(Sender: TObject);
var
  pt: TPoint;
  bt: TBitBtn;
begin
  bt := Sender as TBitBtn;
  pt := bt.Parent.ClientToScreen(Classes.Point(bt.Left, bt.Top + bt.Height));
  f_Otdel.Top := pt.Y + 2;
  f_Otdel.Left := pt.X - 300;
  f_Otdel.ShowModal;
end;