TMyClass=Class(TObject)
     id:integer;
     str:string;
end;


...
//заполнение combobox
   myClass_var:=TMyClass.Create;
   myClass_var.id:= 1 ;
   myClass_var.str:='пример1';
   myCombo.Items.AddObject(myClass_var.str.myClass_var);
   myClass_var.free;
   myClass_var:=TMyClass.Create;
   myClass_var.id:= 2 ;
   myClass_var.str:='пример2';
   myCombo.Items.AddObject(myClass_var.str.myClass_var);
   myclass_var.free;
...
//хочу установить значение: в цикле прохожу по всем значениям и ищу совпадение
   intA:= 1 ; //искомое значение id

   for A:= 0  to myCombo.items.count- 1  do
         begin
              if TMyClass(myCombo.items.objects[A]).ID=intA    //< ------ 
 
                    begin
                       myCombo.itemindex:=intA; 
                       break;
                    end;
         end;
...