FieldByName().AsFloat只可以保留四位小数，四位以上应使用Value

FieldByName('a').AsFloat

to

FieldByName('a').Value