Wie kann man TEncoding vergleichen?

[Codehunter]

Moin!

Ich steh grad irgendwie auf dem Schlauch:

Delphi-Quellcode:

function EncodingToStr(const AEncoding: TEncoding): string;
begin
  if AEncoding is TEncoding.ANSI then // <-- Operator ist auf diesen Operandentyp nicht anwendbar
    Result:= 'ANSI'
  else if AEncoding is TEncoding.ASCII then // <-- Dito
    Result:= 'ASCII'
  else if AEncoding is TEncoding.UTF7 then // <-- Dito
    Result:= 'UTF7'
  else if AEncoding is TEncoding.UTF8 then // <-- Dito
    Result:= 'UTF8'
  else if AEncoding is TEncoding.Unicode then // <-- Dito
    Result:= 'Unicode'
  else
    Result:= 'ASCII';

Mit einfachem "="-Vergleich kompiliert das zwar, bringt aber immer False weil TEncoding.GetXYZ immer eine neue Instanz von TEncoding erzeugt. Mit InheritsFrom gehts auch nicht, weil z.B. ANSI und ASCII beide ein TMBCSEncoding sind. Nu sind mir irgendwie die Ideen ausgegangen.