[Noooob]

Помогите пожалуйста. Как мне отключить пользователя? Процедура провкрки:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

if cmd = '101' then   begin   UserConnect(name,Form1.ListBox1);   end;  if cmd = '102' then   begin   UserConnect(name,Form1.ListBox2);   end   else   begin   //здесь должен отключаться   end;

Регистрация если прошел проверку:

Код:

1 2 3 4 5 6 7 8 9 10 11

type  PPacket = ^Packet; {Указатель на запись}  Packet = record    {Запись с данными о пользователе}  Nick:string;  end; ........... Text := Copy(msg,4,MaxInt);     New(NewClient);     NewClient^.Nick := Text;     Form1.ServerSocket1.Socket.Data := NewClient;     ListBox.Items.Add(Text);

Пробовал:

Код:

1 2 3 4 5 6 7 8 9 10 11

for i:= 0 to Form1.ServerSocket1.Socket.ActiveConnections - 1 do     if PPacket(Form1.ServerSocket1.Socket.Connections[i].Data)^.Nick = 'test.1' then      begin      showmessage('found')      end      else      begin       Form1.ServerSocket1.Socket.Disconnect(i);       showmessage('+');       //break;       end;

но на 2 рядке ошибка EAccessViolation