在Delphi中为表单上的大量控件切换控件类型

procedure ChangeControlType(Parent: TWinControl; ControlType: TControlClass);
var
  I: Integer;
  NewControl: TControl;
begin
  for I := Parent.ControlCount - 1 downto 0 do
  begin
    if Parent.Controls[I] is ControlType then
    begin
      NewControl := ControlType.Create(Parent);
      NewControl.Name := Parent.Controls[I].Name;
      NewControl.Left := Parent.Controls[I].Left;
      NewControl.Top := Parent.Controls[I].Top;
      NewControl.Width := Parent.Controls[I].Width;
      NewControl.Height := Parent.Controls[I].Height;
      Parent.Controls[I].Free;
    end;
  end;
end;

ChangeControlType(Form1, TRadioButton);