ServerSocket: принудительное отключение клиентов

procedure TfrmServer.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket);
begin
  Socket.SendText(cmd_GetAcc);//посылаем запрос аккаунту клиенту
end;

procedure TfrmServer.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);

  Msg := Socket.ReceiveText;
  Cmd := Copy(Msg, 1, CmdLen);
  MsgData := Copy(Msg, Length(cmd_Nick) + 1, Length(Msg) - Length(cmd_Nick));
 
  if (Cmd = cmd_Authorization) then   {Если это команда авторизации, то}
  begin
    acc := Copy(MsgData, 1, Pos(':', MsgData) - 1);
    pass := Copy(MsgData, Pos(':', MsgData) + 1, Length(MsgData));
    {Выделяем память под нового клиента}
    New(NewClient);
    {Записываем его акк\пасс}
    NewClient^.acc := acc;
    NewClient^.pass := pass;
    {указатель на данные (Data) сокета текущего клиента будет являться адресом выделенной области памяти}
    Socket.Data := NewClient;
    PPacket(Socket.Data)^.TransFile := nil;
    if CheckAcc(acc) then
    begin
      Socket.SendText(cmd_NicknameBusy);
    end
    else
    begin
      if Authorization(acc, Sha1Base64(pass)) then
        Socket.SendText(cmd_AuthorizationTrue + '<nick>' + NewClient^.Nick + '</nick>' + '<msg>' + ' Авторизация успешна.'#13#10 + '</msg>')
      else
        Socket.SendText(cmd_AuthorizationFalse);
    end;
  end

Socket.SendText(cmd_AuthorizationFalse);