Wie auf den Eintrag der Combobox zugreifen?

[DelphiDeveloper]

dann faellt mir nichts bessers ein als sowas

Delphi-Quellcode:

function TForm1.GetItemIndexFromID(const aID: integer): integer;
var
  i: integer;
begin
  result := -1;
  with CBNamen do
  begin
    i := 0;
    while i <= pred(CBNamen.Items.Count) do
    begin
      if integer(cbnamen.Items.Objects[i]) = aID then
      begin
        result := i;
        break;
      end; //if
      inc(i)
    end; //while

  end; //with
end;  //func