Umlaute mit Readln einlesen

[Luckie]

Gegeben sein folgendes Programm:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

function Ansi2OEM(AnsiString: string): string;
begin
  ANSIString := ANSIString + #0;
  CharToOEM(PChar(ANSIString), @ANSIString[1]);
  Delete(ANSIString, Length(ANSIString), 1);
  Result := ANSIString;
end;

var
  s: String = '';

begin
  Writeln(Ansi2Oem('äöüäöüäöüäöööäüäöüäöäöüöüöäöüöäöüöäöüööüöäöüöäöüöäöüööüöäöüöäöüöäöüö'));
  while True do
  begin
    s := '';
    Readln(s);
    Writeln(Ansi2OEM(s));
  end;
end.

Die Ausgabe funktioniert, nur die Eingabe nicht. Gibt man zum Beispiel ein ö ein kommt " raus. Gibt es dafür eine Lösung?
Readln(Ansi2OEM(s)); Funktioniert nicht.