function fieldDecimal(fieldno : Integer): Integer;

The function fieldDecimal() returns a length of a fractinal part of a field by index.
It is suitable only for Numeric, Float, Double fields. For other types it returns 0.
It also returns 0 if index is out of range.

begin
    // your code
    for i := 0 to dbf.fieldCount-1 do
        writeln( intToStr( dbf.fieldDecimal( i ) ) );
    // your code
end;