Combobox Items nur einmal zulassen

[BluesKid]

Delphi-Quellcode:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = Vk_return)
  and (combobox1.items.indexof(combobox1.text) = -1) then begin
    combobox1.items.add(Combobox1.text);
    combobox1.text := '';
  end;//if
end;

^^getestet und funktioniert...