Динамично добавяне на полета към TQuery

Господари. Помощ за следния код ругае
Полето "ID" няма набор от данни.

Query_AreaTab.SQL.Clear;
Query_AreaTab.SQL.ADD ("ИЗБЕРЕТЕ ИДЕНТИФ ОТ PF.AREAS_TAB КЪДЕ AREA_TYPE> = 3");
Query_AreaTab.Open;

Query_AreaTab.Fields.Clear;
Query_AreaTab.Fields.Add (TFloatField.Create (Query_AreaTab));
Query_AreaTab.Fields [0] .DisplayWidth: = 15;
Query_AreaTab.Fields [0] .FieldKind: = fkData;
Query_AreaTab.Fields [0] .FieldName: = "ID";
Query_AreaTab.Fields [0] .Visible: = True;
Query_AreaTab.Fields [0]. Необходимо: = Вярно;

Данни не това, различни fk

какво fk ти трябва, моля, кажи ми!

fkCalculated Не помня как се пише. И присвоете стойността на OnCalcFields. fkData са полета, които присъстват физически в таблица или в SQL заявка.

Ако не създадете полета в заявката и в мрежата в Design, тогава няма да е необходимо да ги дефинирате в RunTime - всичко, което заявката връща, ще бъде отразено в мрежата:-)

Добре, така да бъде, но тогава имате объркване с последователността на действията, макар че не сте посочили в кой ред код лети грешката.

---