ComboBox con Objeto String asignado a cada item

[amadis]

He ligado un objeto string a cada item de un combo pero al momento de recuperarlo recupera PEDAZOS de cadenas escritas en el codigo del form y a vees recupera lo que corresponde para los items.

Si lo hago con Integer funciona bien pero necesito datos tipo String.

Código Delphi [-]

// carga de valores al combo
while not Table1.Eof do
  begin
   ComboBox1.Items.AddObject(Table1campo1.Value , TObject(Table1campo2.AsString));  {para enteros aquí pongo .AsInteger}
   Table1.Next;
  end;

// recuperacion de los valores
edit1.text := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
{para recuperar un entero en lugar de string(Tobject) pongo integer(Tobject)}

El codigo re recuperación lo uso en OnChange del combo para que cargue el valor que corresponde a cada item en un Edit. Y para algunos lo hace bien y para la mayoria carga parte de cadenas del codigo fuente.

¿se puede hacer lo que quiero? ¿Es problema de la conversion del OBJETO a String?

Gracias