Code:

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

{©Drkb v.3(2007): www.drkb.ru}

var

I: Integer;

ChildControl: TControl;

begin

for I:= 0 to GroupBox1.ControlCount -1 do

begin

   ChildControl := GroupBox1.Controls[I];

   ChildControl.Top := ChildControl.Top + 15

end;

end;