Umlaute in einem String umwandeln

[Hansa]

Na gut, jetzt kann ich sie dir geben.

Delphi-Quellcode:

  for i := 1 to Length(s) do
  begin
    case s[i] of
      #142: Result := Result + #196; {Ž}
      #153: Result := Result + #214; {™}
      #154: Result := Result + #220; {š}
      #132: Result := Result + #228; {„}
      #148: Result := Result + #246; {”}
      #129: Result := Result + #252; {�}
      #225: Result := Result + #223; {á}
    else
      Result := Result + s[i];
    end;
  end;

Hat der Lehrer nichts gesagt in Richtung ASCII/ANSI ?