Añadir elementos sin repetir

[Robert01]

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);
     //InBtn.Enabled := true;
     //if Lista2.Items.Count = 0 then OutBtn.Enabled := false;
   end;

Saludos