Otra alternativa para prescindir de crear una funcion que busque el componente es
Código Delphi
[-]
procedure TfrmVentas.Button1Click(Sender: TObject);
begin
if FindComponent(ComboBox1.Text)=Nil then with TCheckListBox.Create(Self) do begin
cajas := tchecklistbox.Create(frmventas);
cajas.Top := 10;
cajas.Left := 10;
cajas.Height := 300;
cajas.Width := 300;
cajas.Parent := pagecontrol1;
cajas.Name := combobox1.Text;
cajas.Items.Add('el nombre es:'+cajas.Name);
cajas.Items.Add(combobox1.Text);
cajas.DragKind := dkDock;
cajas.DragMode := dmAutomatic;
end
else
ShowMessage('Ya existe'); end;
Saludos