Как прочитать русский текст MS-DOS

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

i, j: integer;

s: string;

c: set of char;

begin

c := ['А'..'Я', 'а'..'я'];

memo1.Lines.LoadFromFile('c:\11.txt');

for i:=0 to memo1.Lines.Count do

begin

   s:=memo1.Lines.Strings[i];

   for j:=1 to length(s) do

     if chr(ord(S[j])+64) in c then

       s[j]:=chr(ord(S[j])+64);

   memo1.Lines.Strings[i]:=s;

end;

end;