[Noooob]

Здравствуйте, после подключения ClientSocket к ServerSocket программа выдает ошибку http://jtorrent.ru/view.php?img=2b80...062918b73efbfc

вот код

Код:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
    Msg:String;
    Cmd:string[3];
    Text:string;
    NewClient:PPacket;
    ItemList:TStringList;
    i:Integer;
begin
  msg:=Socket.ReceiveText;
 Cmd := Copy(msg,1,3);
 if (Cmd = '101') then
 begin
    Text := Copy(msg,4,maxint);
    New(NewClient);
    NewClient^.Nick := Text;
    Socket.Data := NewClient;
    ListBox1.Items.Add(Text);
    ItemList:=TStringList.Create;
   Ini.ReadSection('RegServers',ItemList);
   for i:=0 to ItemList.Count-1 do
   begin
    if not (ItemList.Strings[i]= Text) then
      Ini.WriteString('RegServers',Text,'');
   end;
   ItemList.Free;
   Ini.Free;
 end;
 if (Cmd = '102') then
 begin
    Text := Copy(msg,4,maxint);
    New(NewClient);
    NewClient^.Nick := Text;
    Socket.Data := NewClient;
    ListBox2.Items.Add(Text);
 end;
end;

[icWasya]

что такое PPacket?

[NumLock]

-Ini не создан
-и вообще это код для события OnClientRead у TServerSocket
-брэйкпоинт на 11 строке и по шагам

[Noooob]

Забыл. Ошибку выдает когда закрыл программу

[NumLock]

по приведенному коду программа написана абсолютно неправильно