Работа с сокетами

procedure THTMLInterface.execute;
var
    sizeofSockAdr:longint;
    Addr: TInetSockAddr;
begin
     //create socket
     sock:=fpSocket(AF_INET,SOCK_STREAM,0);
     if SocketError=0 then
     begin
       writeln('Сокет создан......ok');
 
       Addr.sin_family:=AF_INET;
       Addr.sin_port:=htons(8000);
       Addr.sin_addr.s_addr:=HostToNet((127 shl 24) or 1); //127.0.0.1
 
       sizeofSockAdr:=sizeof(Addr);
 
       if fpBind(sock,@Addr,sizeofSockAdr)=-1 then
       begin
         writeln('127.0.0.1:8000 уже занят! Стоп.');
       end
       else
         if fpListen(sock,1)=-1 then
          writeln('Ошибка ожидания')
         else
         begin
           writeln('Ожидание клиентов 127.0.0.1:8000');
 
           sock:=fpaccept(sock,@Addr, @sizeofSockAdr);
 
           if (sock=-1) then writeln('ошибка соединения')
                        else writeln('клиент подсоеденился');
 
            setlength(SBufer,1024);
           while (sock<>-1) do
              writeln(fprecv(sock,@SBufer[0],1024,0));
              writeln('End of message');
              sleep(5000);
           end;
 
 
          sockets.CloseSocket(sock);
          writeln('Сокет закрыт');
         end;
end;