[Booo]

В общем хоть с нодом хоть без него все равно такая же ошибка ,мне вот со второй программой интересно .
Вот выкладываю исходный код сервера и клиента:

Код:

server:
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port :=777;
ServerSocket1.Active:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:=false;
ServerSocket1.Close;
Close;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
S:String;
I:Integer;
begin
S:=IntToStr(Socket.SocketHandle) + '>' + Socket.ReceiveText;
ListBox1.Items.Add(s);
For i:=0 to ServerSocket1.Socket.ActiveConnections - 1 do
if serversocket1.Socket.Connections[i].SocketHandle <> Socket.SocketHandle then
ServerSocket1.Socket.Connections[i].SendText(S);
end;

client:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Address:=Edit1.Text;
ClientSocket1.Port:=StrToInt(Edit3.Text);
if not ClientSocket1.Active then
ClientSocket1.Active:=True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ClientSocket1.Active:=false;
ClientSocket1.Close;
Close;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ListBox1.Items.Add(Socket.ReceiveText);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit3.Text <> '' then
ClientSocket1.Socket.SendText(Edit3.text);
Edit3.Text:='';
end;

Admin: В сотый раз - оформление кода! В след. раз БАН!