Delphi - ¡¡URGENTE, como paso el tipo de campo a un listbox

selecciono una tabla y hago una lista(listbox) con los nombres de los campos, ahora ademas quisiera agregarle el tipo de campo; utilizo
Query1.FieldByName(LBlistacamposdbase.Items.Strings[i]).DataType)
si esta correcto supongo yo que me devuelve l tipo de campo pero al agregarlo al listbox me dice que son incompatibles string y TfieldType
que puedo hacer gracias.........

Intentelo con ClassName del componente TField, te devolvera TStringField, TIntegerField etc. por cierto puedes coger el nombre y el tipo en la misma listbox usando las propiedades Names y Values del Items del listbox..