Dauerbrenner Umlaute: Lazarus vs. Delphi

[ringli]

Im Lazarus-Forum habe ich die Funktion UTFToChr gefunden. Vielleicht hilft dir die:

Delphi-Quellcode:

function UTFToChr(const s: string): char;
begin
  if s='' then result:=char(0)
  else begin
    {$IFnDEF fpc}result:=s[1];{$ELSE}
    case byte(s[1]) of
      194: result:=char((byte(s[2])-163)+128);
      195: result:=char((byte(s[2])-130)+160);
      226: result:=char(255);
      else result:=s[1];
    end;{$ENDIF}
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Z: char;
begin
  Z := 'a';
  Z := UTFToChr('ß'); //Hier wird Fehler gefunden, ebenso nächste Zeile
  Z := UTFToChr('ö');
end;

Zumindest kompiliert Lazarus so den Code.