[kaizer131]

так вот тут и начинается самое интересное
при инициализации процедуры

Код:

procedure drag_Terminal(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

и её использовании

Код:

procedure Tfrm_Main.drag_Terminal;
begin
(sender as TGroupBox ).left := X;
 (sender as TGroupBox ).top := Y;
end;

Не работает перетаскивание мышью.
Насколько я помню параметры X и Y не нужно передавать в процедуру и они автоматически будут получены от координат мыши.
Но , могу и ошибаться