Almacenar y recuperar objetos en listas

[santiago14]

Buenas, resulta que tengo un StringList y quiero ponerle un valor y un objeto, hasta ahí no tengo drama (creo)
A los datos los recupero desde una query. Guardo en la parte del objeto, un string.

Código Delphi [-]
while not qryTiposServicios.Eof do
  begin
    tipo:=qryTiposServicios.FieldAsString('tipo'); //clave
    valor:=qryTiposServicios.FieldAsString('descripcion'); //valor
  //Ver la parte del Object. No puedo visualizar correctamente lo que se puso ahí.
    tipos_servicio.AddObject(valor, TObject(string(tipo)));
    qryTiposServicios.Next;
  end;;

Esto no me dá ningún error, pero a la hora de visualizarlo hago lo siguiente:

Código Delphi [-]
s:=CellByName['clTipoServicio', i].AsString;
p:=self.tipos_servicio.IndexOf(s);
p2:=string(TObject(Self.tipos_servicio.Objects[p]));
//.....

En p2 devuelve basura. ¿Qué estoy haciendo mal?

Gracias.