Código Delphi [-] campo:=combo.ListSource.DataSet.FieldByName(nombre_de_campo_que_quieras).AsString;
campo:=combo.ListSource.DataSet.FieldByName(nombre_de_campo_que_quieras).AsString;