∧,,∧　　Delphiですまそですが、
　ミ,,ﾟДﾟ彡　　CreateCloneコンストラクタを
　ﾐつ[|lllll］). 　　実装して、FormCreate時に継承元コンポと
　　　　　　　　入れ替えると、ｺﾝﾎﾟｲﾝｽｺいらずに楽ですよ。

constructor TComboBox1.CreateClone(Original: TComboBox);
var
　MemStream: TMemoryStream;
begin
　Create(Original.Owner);
　Self.Parent := Original.Parent;

　MemStream := TMemoryStream.Create;
　try
　　MemStream.WriteComponent(Original);
　　Original.Free;
　　MemStream.Position := 0;
　　MemStream.ReadComponent(Self);

　finally
　　MemStream.Free;
　end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Free;
ComboBox1 := TComboBox1.CreateClone(ComboBox1);
end;