Добавить имя поля в список синхронно заполнив его тип
function AddFieldNameToFieldListWithType(lCode: integer; aFieldList: TStrings; aFieldName: string): integer;
aFieldList
aFieldName