Campo clave y campo valor en un ComboBox

[santiago14]

Siguiendo con el tema de los combos...
Cuando quiero recuperar el ItemIndex de uno a través del texto que está en .text hago:

Código Delphi [-]
 indice_combo:=combo1.items.IndexOf('hola');

Ahora bien, tengo datos en el Object de este combo, el cual se asocia con el combo a través de justamente el itemIndex.
¿Cómo hago para recuperar el índice asociado, en este caso al objeto, teniendo a la mano el dato que está dentro del object?

Yo hice algo, pero quisiera que lo vean:

Código Delphi [-]
function obtener_ItemIndex_segun_codigo(codigo:string; TS: TStrings):integer ;
var
  i: Integer;
  objeto:string;
begin
  Result:=-1;
  for i := (TS.Count - 1) downto 0 do
  begin
    objeto:=string(ts[i]);
    if codigo = objeto then
    begin
      Result:=i;
    end;
  end;
end;

Y se invoca:

Código Delphi [-]
indice:=obtener_ItemIndex_segun_codigo('ES001', cbxTipoSolicitud.Items);

¿Estoy mas o menos encaminado o no?

Gracias.