UDP обмен данными

[Dima DDM]

Я сделал TCP клиент и сервер.Они нормально обмениваются данными друг с другом,но под скажите как сделать UDP клиент и сервер чтобы они могли обмениваться данными.Ниже представленные мои наработки,но по какой-то причине данные не доходят от клиента к серверу ((( Хотя оба они выходят в интернет!Подскажите в чем ошибка\недочет.

Клиент

program Test;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows,
  WinSock;

// сокеты

var// сокеты   Server:TInaddr;
inf: TWSADATA;
 Server:TInaddr;
Port:integer;  // порт
s:string;
socks,SizeClietnAddr: integer;
sockaddr,client_addr: TSockAddr;
begin
Port:=5001;
s:='Строка текста';
SizeClietnAddr:=SizeOF(client_addr);
  Server.s_addr:=inet_addr(PChar('127.0.0.1'));
  WSAStartup(MAKEWORD(2,0),inf);
  socks:=socket(AF_INET,SOCK_DGRAM,0);
  sockaddr.sin_family := AF_INET;
  sockaddr.sin_port := htons(Port);
  sockaddr.sin_addr := Server;
  connect(socks,sockaddr,sizeof(sockaddr));

 if connect(socks,sockaddr,sizeof(sockaddr))<>-1 then
begin
while true do
begin
  readln(s);
  sendTo(socks,s,Length(s),0,client_addr,SizeClietnAddr);

end;

Сервер

Procedure AlphaConnect;
var
inf:TWSADATA; // для инициализации
UserSocket,i,SizeClietnAddr,ACC,AccData:integer;     // наш сокет
sockaddr,client_addr: TSockAddr;
Port:integer;  // порт
   s:string;
begin
Port:=5001;
SizeClietnAddr:=SizeOf(client_addr);
WSAStartup(MAKEWORD(2,0),inf);
UserSocket:=socket(AF_INET,SOCK_DGRAM,0);

sockaddr.sin_family := AF_INET;
sockaddr.sin_port := htons(Port);
sockaddr.sin_addr.S_addr := htonl(INADDR_ANY);

bind(UserSocket,@sockaddr,sizeof(sockaddr));
listen(UserSocket,MaxPlayers);

// принимаем подключение

i:=sizeof(sockaddr);
// ACC:=accept(UserSocket,sockaddr,i);

while true do
begin

 if ACC<>-1 then

begin
AccData:=recvfrom(ACC,s,Length(s),0,client_addr,SizeClietnAddr);
Sleep(100);

Writeln(s);

end;
end;
end;

Может я какй-то не так переписал в TCP на UDP ?