Como evitar repetição em uma lista de combobox?

Procedure TProcRep.ComboBox1Click(Sender: TObject);
begin
WITH COMBOBOX1 DO
IF (TEXT <> '') AND (ITEMS.INDEXOF (TEXT) < 0) THEN
ITEMS.ADD (TEXT);
end;