对话框 函数给

Question

有个对话框 函数给忘了 ，它能输入子符串 然后返回 子符串 
不是 showmessage,messagebox

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  InputString: string;
begin
  InputString:= InputBox('Input Box', 'Prompt', 'Default string');
  showmessage(inputstring);
  end;

Answer 2

try
ServerSocket1.open;exceptionon  E:  Exception  do  
   MessageBox(0,PChar('错误原因：'+E.message),'提示',0+16);////关于messagebox的end；