S:=fpSocket(AF_INET6,SOCK_STREAM,0);
   if SocketError<>0 then
     Perror('Server : Socket : ');
   SAddr.sin_port:=htons(0);
   SAddr.sin_addr.s_addr:=0;
   if fpBind(S,@SAddr,sizeof(sAddr))<0 then
     perror('123');
   fpListen(S,1);
   writeln('Warning');
   AddressLength:=SizeOf(SAddr);
   fpAccept (S,@SAddr,@AddressLength);
   Reset(Sin);
   ReWrite(Sout);
   Writeln(Sout,'Message From Server');
   While not eof(sin) do
   begin
     Readln(Sin,Buffer);
     Writeln('Server : read : ',buffer);
   end;