Просмотреть или отредактировать MS-DOS текст в TMemo

procedure
 TForm1.FormCreate(Sender: TObject);
 begin

   Memo1.Font.Handle := GetStockObject(OEM_FIXED_FONT);
 end
;

 procedure
 TForm1.Memo1KeyPress(Sender: TObject; var
 Key: Char);
 var

   ch: string
[1];
 begin

   CharToOem(@Key, @ch[1]);
   Key := ch[1];
 end
;

Другое по теме:

• Как консольное приложение может узнать, что Винды завершаются
• Как использовать консоль в не-консольном приложении
• Как захватить весь вывод в консоли