Umlaute und 'ß' aus Textdatei korrekt anzeigen

[Delphi_gn7]

Klar, hier ist er:

Delphi-Quellcode:

program uni;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var txt:textfile;
    si,so: string;

begin
 assign(txt,'E:\t.txt');
 reset(txt);
 while not eof(txt) do
 begin
   ReadLn(txt, si);
   CharToOem(PChar(si), PChar(so));
   Writeln(so);
 end;
 ReadLn;
 close(txt);
end.