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;

{
 For implementing console input/output for non-console applications you
 should use the AllocConsole and FreeConsole functions.
 The AllocConsole function allocates a new console for the calling process.
 The FreeConsole function detaches the calling process from its console.
 Example below demonstrates using these functions:
}

 procedure TForm1.Button1Click(Sender: TObject);
 var
  s: string;
 begin
  AllocConsole;
  try
  // Change color attributes
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),
  FOREGROUND_BLUE OR FOREGROUND_GREEN or
  BACKGROUND_RED );
  Write('Type here your words and press ENTER: ');
  Readln(s);
  ShowMessage(Format('You typed: "%s"', [s]));
  finally
  FreeConsole;
  end;
 end;