Делал раньше подобное, но когда недавно снова понадобилось, то потратил кучу времени на поиск решения, поэтому выкладываю на будущее:

Поставить на Form.Resaise:

for i := 0 to ComponentCount - 1 do

if (Components[i] is TGroupBox) then
   begin
   (Components[i] as TGroupBox).Left:= 10;
   (Components[i] as TGroupBox).Top:= 10;
   (Components[i] as TGroupBox).Width:=form1.Width-25;
   (Components[i] as TGroupBox).Top:=form1.Height-90;
   end;