program Project1;

{$APPTYPE CONSOLE}

uses
  Winapi.WinSock, Winapi.Windows, System.Diagnostics;

var
  S: TSocket;
  A: TSockAddrIn;
  SW: TStopwatch;
  WSA: TWSAData;
begin
  SW := TStopwatch.StartNew;
  WSAStartup(MakeWord(2, 0), WSA);
  S := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if S <> INVALID_SOCKET then
  begin
    A := Default(TSockAddrIn);
    A.sin_port := 10000;
    A.sin_family := AF_INET;
    if bind(s, A, SizeOf(A)) <> SOCKET_ERROR then
    begin
      if listen(s, 200) <> SOCKET_ERROR then
        WriteLn('Listen success');
    end;
    closesocket(s);
  end;
  WSACleanup;
  SW.Stop;
  WriteLn('Elapsed time, ms = ', SW.ElapsedMilliseconds);
  ReadLn;
end.