Это внутренний метод InitFieldDefsFromFields, используемый различными функциями, например, CreateTable. Он создает определение полей для существующего набора Fields. Данная процедура нудна только для Delphi 4 и младше, поскольку в Delphi 5 и старше данная процедура реализована в TDataSet.