[Aristarh Dark]

Как-то так:

Код:

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1DropDown(Sender: TObject);
  private
    { Private declarations }
    function CheckTextInList(AList:TStrings; AText:string):Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.CheckTextInList(AList: TStrings; AText: string): Boolean;
{
  Функция проверяет есть ли строчка в списке
}
var
  i: Integer;
begin
  Result:=True;
  for i := 0 to AList.Count-1 do
    if AList[i]=AText then
      Exit;
  Result:=False;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
{
  Событие при раскрытии списка. Нажатие на "треугольничик"
}
begin
  if Trim(ComboBox1.Text)='' then   //Если ничего нет - выходим
    Exit;
  if CheckTextInList(ComboBox1.Items,ComboBox1.Text) then  //Если тескт уже в списке - выходим
    Exit;
  ComboBox1.Items.Append(ComboBox1.Text);  //Добаляем текст в список
end;