Añadir elementos sin repetir

[Kenobi]

hola, al menos en teoria lo que debes hacer es antes de introducir el elemento chequeando que no este y si es asi introducirlo....

yo haria una function llamada buscar en combo

Código SQL [-]
function TFrmCancelRetiroLotes.Buscar_en_combo(Elemento: string): boolean;
var
i:integer;
encontrado:boolean;
begin
encontrado:=false;
 for i:=0 to combo.Items.Count-1 do
 begin
   if Elemento = combo.Items.Item[i].Caption then
   begin
       encontrado:=true;
       break;
   end;
 end;

 Result:=encontrado;

end;

luego antes de introducir el elemento

haria algo asi

Código SQL [-]
Encontrado:=buscar_en_Combo(TEdit.text);
if not Encontrado then 
begin
//aca el codigo para introducir el elemento eso ya lo tienes ......
end;

Espero que te sirva....

Saludos....