Для "засовывания" содержимого файла в Memo применяется метод
Memo1.Lines.LoadFromFile(XXXX.001).
Для перекодировки из ASCII в Win1251 применяется процедура API
OemToChar.
Код:
S := Memo1.Lines.Text;
if S <> '' then
OemToChar(@S1[1], @S1[1]);
S определана как String;