Function AllocConsole

Function AllocConsole
var
  s: string;
begin
  AllocConsole;
  try
    Write('请输入 然后按 [ENTER]');
    Readln(s);
    ShowMessage('您输入了： ' + s);
  finally
    FreeConsole;
  end;
end;