Code:

program Passwd_Server;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Winsock;


var sock:TWSAData;
    error:Integer;
    m_socket:TSocket;
    AcceptSocket:TSocket;
    service:Sockaddr_in;
begin

error:=WSAStartUp(2,sock);

case error of
0:begin
  //glavni kod ide ovdje
  m_socket:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if m_socket=INVALID_SOCKET then
           begin
           WriteLn('Problem sa socketom!');
           ReadLn;
           WSACleanUp;
            exit;
           end;

  service.sin_family:=AF_INET;
  service.sin_addr.s_addr:=inet_addr( '127.0.0.1' );
  service.sin_port:=htons(13);

  try
  bind(m_socket,service,SizeOf(service));
  except begin
         WriteLn('Problem sa postavljanjem servera!');
         ReadLn;
         CloseSocket(m_socket);
         exit;
         end; end;


  if listen(m_socket,1)=SOCKET_ERROR then
         begin
         WriteLn('Problem pri osluskivanju konekcije!');
         ReadLn;
         end else begin
                  WriteLn('Cekam klijenta da se spoji...');
                  AcceptSocket:=SOCKET_ERROR;
                  while AcceptSocket = SOCKET_ERROR do
                      begin
                  AcceptSocket:=accept( m_socket, nil, nil );
                      end;
                  end;

                  WriteLn('Klijent je spojen!');
                  m_socket:=AcceptSocket;



  end


  else begin
       WriteLn('Problem pri povezivanju sa WinSock-om!');
       end;
end;

WSACleanUp;

ReadLn;

end.