WinSock. Клиент и сервер.

[_PROGRAMM_]

Добрый вечер. У меня возникла проблема, которую не в состоянии объяснить. Имеется исходник работающего сервера и клиента, и аналогичная группа(клиент/сервер), но не работающая. В чем причина, как я уже писал, не знаю.
Рабочая группа
Сервер

var
   inf:TWSADATA;
   i,z,socks,sockc: integer;
   sockaddr: TSockAddr;
   s: array[0..100] of Char;
begin
   WSAStartup(MAKEWORD(2,0),inf);                   // Инициализируем библиотеку
   socks:=socket(AF_INET,SOCK_STREAM,0);            // Получаем параметр для переменной
   sockaddr.sin_family := AF_INET;                  // Опишем структуру  TSockAddr
   sockaddr.sin_port := htons(210);                 // ...
   sockaddr.sin_addr.S_addr := htonl(INADDR_ANY);   // ...
   bind(socks,sockaddr,sizeof(sockaddr));          // Привяжем структуру к сокету
   listen(socks,3);                                 // Начинаем слушать
   i:=sizeof(sockaddr);
   while true do                                    // Бесконечный цикл в ожидании коннекта
   begin
      sockc:=accept(socks,@sockaddr,@i);              // Присваиваем переменной ответ коннекте
      //ShowMessage(inttostr(z));
      if sockc<>-1 then                             // Если есть коннект
      begin
         z:=recv(sockc,s,Length(s),0);              // Примем данные
         if z<>-1 then                              // оок?
         begin
            ShowMessage('Клиент передает: '+s);     // Если ок, то выводим их
            s:='Здарова';                           // данные в ответ
            send(sockc,s,Length(s),0);              // Посылаем 
         end;
      end;
   end;

Клиент:

var
   Server:TInaddr;
   inf: TWSADATA;
   z,socks: integer;
   sockaddr: TSockAddr;
   s: array[0..100] of Char;
begin
   s:='Привет';                                                 
   Server.s_addr:=inet_addr('127.0.0.1');               
   WSAStartup(MAKEWORD(2,0),inf);                        
   socks:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);    
   sockaddr.sin_family := AF_INET;                        
   sockaddr.sin_port := htons(210);                           
   sockaddr.sin_addr := Server;                               
   if connect(socks,sockaddr,sizeof(sockaddr))<>-1 then  
   begin
      send(socks,s,Length(s),0);                              
      while true do                                          
      begin
         z:=recv(socks,s,Length(s),0);                          
         if z<>-1 then                                         
         ShowMessage('Сервер передает: '+s);                
      end;
   end;

И неработающая
Сервер

var
inf:TWSADATA;
Sock,Connect,r,i:integer;
sockAddr:TSockAddr;
str:string;
begin
  WSAStartup(MAKEWORD(1,0),inf);
  sock:=Socket(AF_INET,SOCK_STREAM,0);
  SockAddr.sin_family:=AF_INET;
  SockAddr.sin_port:=htons(7254);
  SockAddr.sin_addr.S_addr:=htonl(INADDR_ANY);
  bind(sock,Sockaddr,SizeOf(SockAddr));
  Listen(Sock,3);
  i:=SizeOF(SockAddr);
  while True do
  begin
    Connect:=Accept(sock,@sockAddr,@i);
    if Connect=-1 then exit;
       r:=recv(Connect,str,SizeOF(str),0);
       if r=-1 then exit;
        ShowMessage(Str);
  end;

Клиент

var
inf:WSADATA;
Sock:integer;
Client:TSockAddr;
Server:TinAddr;
str,sendd:String;
begin
 WSAStartup(MAKEWORD(1,0),inf);
 sock:=Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
 Client.sin_family:= AF_INET;
 Client.sin_port:=htons(7254);
 Server.S_addr:=Inet_addr('127.0.0.1');
 Client.sin_addr:=Server;
 if connect(Sock,Client,SizeOf(Client))=-1 then exit;
  sendd:='Привет Сервер!';
  Send(Sock,sendd,SizeOf(Sendd),0);
  while true do
  begin
    if recv(Sock,str,SizeOf(Str),0)=-1 then ShowMessage(str);
    sleep(200);
  end;

Чем они отличаются, и почему вторая группа не хочет "общаться"?
Заранее благодарю.