我该如何写呢？

Question

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;

Answer 1

可以用FindComponent(const Name: string)函数来获取所需的控件：
例子如下：
Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit;
Edit6: TEdit; EditResult: TEdit; Button1: TButton;procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
  strResult: string;
begin
  strResult := '';
  for i := 1 to 6 do
  begin
    strResult := strResult + TEdit(FindComponent('Edit' + IntToStr(I))).Text;
  end;
  EditResult.Text := strResult;
end;

Answer 2

如果不用六个EDIT组件，而用二个DateTimePicker可能更方便