s := Sock;
 if s = invalid_socket then exit;
 vsize := sizeof(tsockaddr);
 getpeername(s, SockName, vsize);
 writeln('client accepted, remote address',inet_ntoa(SockName.sin_addr));
 vsize := sizeof(bufsize);
 getsockopt(s,sol_socket,so_rcvbuf,pchar(@bufsize),vsize);
 writeln('receive buffer size ',bufsize);
 setlength(abuf,bufsize);
 repeat
   vsize := recv(s,abuf[0],bufsize,0);
   if vsize<=0 then break;
   setlength(vbuf,vsize);
   lstrcpyn(@vbuf[1],@abuf[0],vsize);
   GetCommand(vbuf,s); <------ Тут вызывается функция
 until vbuf = 'q';
 writeln('client disconnected, remote address ',inet_ntoa(SockName.sin_addr));
 setlength(abuf,0);
 closesocket(s);

if send(s,buf[1],length(buf),0)=socket_error then
   WriteLn('Error') else WriteLn('Ok');