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