我看了下代码，所有的不同就在于我在IdTCPServer1.Active := true;之后有那么一段Memo显示的代码：
procedure TForm1.StartBtnClick(Sender: TObject);
var
i : Integer;
begin
IdTCPServer1.Active := False;
IdTCPServer1.DefaultPort := StrToInt(PortEdit.Text);
IdTCPServer1.Active := true;
if IdTCPServer1.Active = True then
begin
Memo1.Lines.Add('服务器侦听在端口'+ IntToStr(IdTCPServer1.DefaultPort));
Memo1.Lines.Add('LockList Count: ' + IntToStr(IdTCPServer1.Contexts.LockList.Count));
end else
Memo1.Lines.Add('服务器侦听失败');
end;

导致server的OnConnect和其他事件不能触发，无法响应客户端的任何请求。太奇怪了吧？