fehlende VarTypes in D5

[shmia]

Hallo,
anscheinend kennt D5 nicht alle VarTypes (es geht um den Datentyp Variant).
Deshalb musste ich in folgender Funktion schon nachhelfen:

Delphi-Quellcode:

function VarTypeAsString(const vt: Integer): string;
begin
   case vt and varTypeMask of
      varEmpty:    Result := 'Empty';
      varNull:     Result := 'Null';
      varSmallint: Result := 'SmallInt';
      varInteger:  Result := 'Integer';
      varSingle:   Result := 'Single';
      varDouble:   Result := 'Double';
      varCurrency: Result := 'Currency';
      varDate:     Result := 'Date';
      varOleStr:   Result := 'OleStr';
      varDispatch: Result := 'Dispatch';
      varError:    Result := 'Error';
      varBoolean:  Result := 'Boolean';
      varVariant:  Result := 'Variant';
      varUnknown:  Result := 'Unknown';
      varString:   Result := 'String';
      varAny:      Result := 'Any';
      varByte:     Result := 'Byte';

      $0e:         Result := 'Decimal (16Byte)';
      $18:         Result := 'void';
      $1b:         Result := 'safe-array';
      $1d:         Result := 'UserDef';

   else
      Result := Format('0x%.8x',[vt]);
   end;

   if (vt and varArray) <> 0 then
      Result := 'array of ' + Result;
   if (vt and varByRef) <> 0 then
      Result := '*'+Result;
end;

Nun fehlen mir noch die Entsprechungen zu $13 und $1A.
Und was fehlt sonst noch?