Hola
Si no me equivoco este anda perfectamente es para dos listbox, no debería haber problemas en aplicarlo a un combobox.
Código Delphi
[-]
procedure TAnalisisCls.Lista1Click(Sender: TObject);
var
index, i : integer;
begin
index := Lista1.Items.Count;
i := 0;
while i < index do
begin
if (ListaPob1.Selected[i]) then
begin
Lista2.Items.Add(Lista1.Items.Strings[i]);
Lista1.Items.Delete(i);
index := index - 1;
i := 0;
end
else i := i + 1;
end;
end;
procedure TAnalisisCls.Lista2Click(Sender: TObject);
var
index: integer;
begin
index := Lista2.ItemIndex;
Lista1.Items.Add(Lista2.Items.Strings[index]);
Lista2.Items.Delete(index);
end;
Saludos