关于控件的整体移动……高手低手请帮忙（up有分)

procedure TForm1.Panel1Resize(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to TWinControl(Sender).ControlCount - 1 do
    if TWinControl(Sender).Controls[I] is TEdit then
      TEdit(TWinControl(Sender).Controls[I]).Left :=
        (TWinControl(Sender).ClientWidth -
          TEdit(TWinControl(Sender).Controls[I]).Width) div 2;
end;