[Pilyla]

две программы, одна-с ServerSocket,другая-ClientSocket. Клиент запускает сервер, и коннектится к нему. но почему-то возникает ошибка 11004. вчем дело,не пойму. Вот код.
Сервер
изначально установлены свойста Port :=1963;
Active:=true;

Код:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('+');
end;

Клиент

procedure TForm1.FormCreate(Sender: TObject);
begin
t:=0;
ClientSocket1.Port:=1963;
ClientSocket1.host:='263.6.0.0';
ClientSocket1.address:='263.6.0.0';
ClientSocket1.active:=false;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('+');
end;

procedure TForm1.Button1Click(Sender: TObject);    
begin
  if   (findwindow(nil,'Идет процесс')=0 )
  then        begin
  shellExecute(Handle,'open','D:\server0\server.exe',nil,nil,SW_SHOWNORMAL) ;
  timer1.Enabled:=true;
  end else 
if  ((findwindow(nil,'Идет процесс')<>0 )and  (t=0 ) )   then   // если окно найдено и  первый раз
begin    ClientSocket1.Active:=true  ;
    showmessage('00000')      ;  end
else if((findwindow(nil,'Идет процесс')<>0 )and  (t=1 ) ) then    //ранее нажата кнопка с найденным окном
begin ClientSocket1.Active:=false  ;
showmessage('11111')  ; end;
  t:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (findwindow(nil,'Идет процесс')<>0 )then  begin
    timer1.enabled:=false;
   showmessage('timer');
    clientSocket1.Active:=true;
   end;
end;

Админ: Пользуемся тегами для оформления кода!