功能是：连接错误的时候，memo会显示相应信息？

Question

但是服务器端停止接受，运行会异步错误。 应该怎么修改呢？是try的位置不对吗？
代码如下：
procedure TClientFrmMain.BtnStartClick(Sender: TObject);
begin
if not ClientSocket.Socket.Connected then
try
ClientSocket.Active:=False;
ClientSocket.Host:='PC-201004041415';
ClientSocket.Port:=StrToInt(EdPort.Text);
ClientSocket.Open;
ShowStr('正在建立与'+ClientSocket.Socket.RemoteAddress+'的连接...');
except
ShowStr('connection error ');
end;
end;

Answer 1

if not ClientSocket.Socket.Connected thentryClientSocket.Active:=False;ClientSocket.Host:='PC-201004041415';ClientSocket.Port:=StrToInt(EdPort.Text);ClientSocket.Open;ShowStr('正在建立与'+ClientSocket.Socket.RemoteAddress+'的连接...');except on e:Exception dobeginShowStr('connection error '+E.Message);end;end;end;

Answer 2

try except end 语法就是抛出异常。