新手求助，用delphi做一个端口扫描器报错

Question

运行时提示asynchronous socket error 10049和asynchronous socket error 10061用了一个clientsocket组件 和一个TTimer。相关组件代码如下：procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i=StrToInt(Edit3.Text)  then  //当值为最大时，算出计时时间
 Timer1.Enabled:=False
 else
 ClientSocket1.Port:=i;  //控件的端口
 ClientSocket1.Address:=Edit1.Text; //控件连接的IP地址
 ClientSocket1.Open; //连接IP，执行控件
 i:=i+1; //变量自加一，便于扫描下一个端口
 ProgressBar1.StepBy(1);  //进度条加1
end;//端口扫描连接
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Opening Port：'+inttostr(i-1)); //连接成功后输出端口
ClientSocket1.Close;end;procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode:=0;  end;高手帮我看看是什么原因，谢谢了

Answer 1

open 只打开一次就OK。
发送可以用timer