Как использовать консоль в не-консольном приложении

Для того, чтобы добавить в не-консольное приложение ввод/вывод из консоли, необходимо воспользоваться функциями AllocConsole и FreeConsole.

procedure
 TForm1.Button1Click(Sender: TObject);
var

  s: string
;
begin

  AllocConsole;
  try

    Write('Type here your words and press ENTER: ');
    Readln(s);
    ShowMessage(Format('You typed: "%s"', [s]));
  finally

    FreeConsole;
  end
;
end
;

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

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