大家看我的代码那个地方有误

Question

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
    var
     i:integer;a :string ;
  begin
   //Memo1.Lines.Add(Socket.ReceiveText);
  a:=serversocket1.socket.ReceiveText;
   memo1.Lines.Add(socket.receivetext);
  for i:=0 to sessions  do begin
  if session[i].CHandle=socket.SocketHandle  then   begin
  //showmessage(a);
    if a='gets' then
         // begin
          session[i].csocket.sendtext('回复客户端'+socket.RemoteHost+'可以发送数据了'+'内容为'+a);
        //  serversocket1.Socket.SendText('回复客户端'+socket.RemoteHost+'可以发送数据了') ;
  //serversocket1.SendText();
        // end;
           end;
              end;
                end;
    //showmessage('test');
       { if  a='yy' then begin
   session[i].CSocket.SendText(' 回复客户端'+socket.remotehost+'====>可以发送数据');
        end
       else
      begin
   session[i].csocket.sendtext('回复客户端'+socket.remotehost+'===>通讯协议不对，请再发')
   end;
   //session[i].CSocket.SendText(' 回复客户端'+session[i].CAddress+'====>'+edit2.text);
  }
老提示这样的错误“由于套节字没有连接或没有提供地址发送或接受的请求没有被接受”