Przepisanie kodu funkcji, tak aby była kompatybilna z FireMonkey

Witam,

w jaki sposób skonwertować poniższą linijkę kodu, aby była kompatybilna z Android w FireMonkey, bo jak wiadomo ShortString nie jest wspierany w FMX?

Embarcadero sugeruję zmianę na tablicę bajtów: http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Migrating_Delphi_Code_to_Mobile_from_Desktop, ale nie bardzo wiem jak można to zrobić na poniższym przykładzie.

function DajNazweKlasy (p_Obiekt : TObject) : RawByteString;
begin
  Result := PShortString(PPointer(PByte(p_Obiekt.ClassType) + vmtClassName)^)^;
end;

Nie rozumemim co chcesz osiągnąć i po co?
Co jest złego w TObject.ClassName i po co takie tworki?

Zresztą, sam zobacz (kod z Delphi 10.2):

class function TObject.ClassName: string;
begin
  Result := UTF8ToString(_PShortStr(PPointer(PByte(Self) + vmtClassName)^)^);
end;

Nie wygląda znajomo?