procedure TIBCustomDataSet.InternalInitFieldDefs;
begin
    .....................
    for i := 0 to FQSelect.Current.Count - 1 do
    begin
      .....................
      case FQSelect.Current[i].Data.sqltype and not 1 of
        { All VARCHAR's must be converted to strings before recording
         their values }
        SQL_VARYING, SQL_TEXT:
        begin
          // Workaround an IB Bug
          if FQSelect.Current[i].Data.RelName = '' then
            FieldSize := FQSelect.Current[i].Data.sqllen
          else
            FieldSize := FQSelect.Current[i].Data.sqllen div FQSelect.Current[i].CharsetSize;
          if FQSelect.Current[i].Data.SqlSubtype in [0, 1]) then  // NONE = 0, OCTETS = 1
            FieldType := ftBytes
          else
            FieldType := ftWideString;
        end;