case toType of
     data_str:
      case data.getSubType of
        ...
        data_null: Result := MakeData(data.toStr)
     end;
    ...
   end;