{
CountrolCount, Controls, Top example
This example uses an updown control and a group box 
on a form, with several controls contained within the group
box. When the updown control is clicked, the controls 
within the group box are moved in the appropriate direction.
}
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var
  I: Integer;
  ChildControl: TControl;
begin
  for I:= 0 to GroupBox1.ControlCount -1 do
  begin
    ChildControl := GroupBox1.Controls[I];
    if Button = btNext then 
      ChildControl.Top := ChildControl.Top + 15
    else
      ChildControl.Top := ChildControl.Top - 15;
  end;
end;

