Перекодировка из ASCII

[Dimo444ka]

Имеется файл формата *.001 в ASCII, как мне его засунуть в TMemo и при нажатии кнопки, текст перекодировался в обычную кирилицу.
Помогите пожалуйста, нужно срочно.

[eoln]

Всё зависит от региональных настроек.
Если текст в DOS'e, то можно так

function CONV(s:string;AnsiToOem_:boolean):string;
var 
  i:integer;
  ph:pchar;
  length_:integer;
begin
    length_:=length(s);
    result:='';
    if length_=0 then exit;
    for i:=0 to length_ div 16 do begin  
//16 символов - максимальная длина переводимой строки,
//поэтому длинные строки разбиваем
        ph:=pchar(copy(s,16*i+1,16));
        if AnsiToOem_ then AnsiToOem(ph,ph)
                      else OemToAnsi(ph,ph);
        result:=result+ph;
    end;
end;

Если AnsiToOem_=true тогда из windows в dos иначе из dos в windows

[_Dmitry]

Memo1.Font.Charset:=OEM_CHARSET;