Если ты добавляешь поля в режиме проектирования, то тогда в едиторе полей таблицы выбери необходимое поле и в инспекторе объектов установи свойство Currency = False.
А во время выполнения программы делаешь так:
Код:
with Table1 do
begin
Open;
(FieldByName('MoneyField') as TCurrencyField).currency := False
end;
Хотя как по мне, то несколько нелогично создавать поле типа Money и потом не хотеть, чтобы оно правильно отображалось )