Q.SQL.Add('select R.RDB$RELATION_NAME, R.RDB$FIELD_POSITION, R.RDB$FIELD_NAME, ');
    Q.SQL.Add('F.RDB$FIELD_LENGTH, F.RDB$FIELD_TYPE, F.RDB$FIELD_SCALE, F.RDB$FIELD_SUB_TYPE ');
    if dbinfo.ODSMajor >= 10 then   // !!!
      Q.SQL.Add(', F.RDB$FIELD_PRECISION ');
    Q.SQL.Add('from RDB$FIELDS F, RDB$RELATION_FIELDS R ');
    Q.SQL.Add('where F.RDB$FIELD_NAME = R.RDB$FIELD_SOURCE and R.RDB$SYSTEM_FLAG = 0 ');
    Q.SQL.Add('and r.RDB$RELATION_NAME NOT STARTING WITH ''RDB$''');
    Q.SQL.Add('order by R.RDB$RELATION_NAME, R.RDB$FIELD_POSITION');
    Q.ExecQuery;

           rec.FieldName:=Trim(Q.Current.ByName['RDB$FIELD_NAME'].AsString);
           rec.Length:=Q.Current.ByName['RDB$FIELD_LENGTH'].AsInteger;
           rec.DataType:=Q.Current.ByName['RDB$FIELD_TYPE'].AsInteger;
           rec.Scale:=Q.Current.ByName['RDB$FIELD_SCALE'].AsInteger;
           rec.Precision:=0;
           if dbinfo.ODSMajor >= 10 then
             rec.Precision:=Q.Current.ByName['RDB$FIELD_PRECISION'].AsInteger
           else
             if rec.Scale <> 0 then
               case rec.Length of
                 2 : rec.Precision:=5;
                 4 : rec.Precision:=9;
                 8 : rec.Precision:=15;
               end;

           rec.Scale:=Q.Current.ByName['RDB$FIELD_SCALE'].AsInteger;
           rec.SubType:=Q.Current.ByName['RDB$FIELD_SUB_TYPE'].AsInteger;
           if (rec.DataType = 16) and (rec.Scale <> 0) and (rec.Precision = 0) then
             rec.Precision:=18;

      case f.DataType of
        7  : begin
               if f.Precision = 0 then
                 s:=s+'SMALLINT'#13#10
               else
                 s:=s+'NUMERIC('+IntToStr(f.Precision)+','+IntToStr(-f.Scale)+')'#13#10;
             end;
        8  : begin
               if f.Precision = 0 then
                 s:=s+'INTEGER'#13#10
               else
                 s:=s+'NUMERIC('+IntToStr(f.Precision)+','+IntToStr(-f.Scale)+')'#13#10;
             end;

        9  : s:=s+'TIMESTAMP'#13#10;
        10 : s:=s+'FLOAT'#13#10;