Jak dodać uwierzytelnianie do Synapse HTTP Proxy Server ?

Hej, mam przykład demo serwera proxy Synapse HTTP (katalog httpproxy, w folderze demos), który jest dostępny w kodzie źródłowym Synapse

http://www.ararat.cz/synapse/doku.php/download

wszystko działa dobrze, ale nie mam pojęcia, jak dodać uwierzytelnianie użytkownika do tego kodu, czy ktoś może mi pomóc? dzięki

Próbowałem dodać

sock.SocksUsername:='user';  
sock.SocksPassword:='pass1234';

do tej procedury, ale nadal mogę korzystać z tego serwera proxy bez uwierzytelnienia.

procedure TServiceThread.Execute;
var
  sock: TTCPBlockSocket;
  ClientSock: TSocket;
begin
  sock := TTCPBlockSocket.Create;
  try
    sock.bind('0.0.0.0','3130');
    sock.SocksUsername:='user';  
    sock.SocksPassword:='pass1234';
    if sock.LastError <> 0 then
    begin
      WriteLog('!!! BIND failed !!!');
      Exit;
    end;
    sock.setLinger(true,10000);
    sock.listen;
    repeat
      if terminated then
        break;
      if sock.canread(1000) then
      begin
        //new connection... launch TTCPHttpThrd
        ClientSock := sock.accept;
        if sock.lastError = 0 then
          TTCPHttpThrd.create(ClientSock);
      end;
    until false;
  finally
    sock.free;
  end;
end;

Zapytaj olesia on z tego co wiem w synapse był geniuszem.

Hej. Geniuszem na pewno nie. A proxy się w Synapse nigdy nie bawiłem, a poza Synapse też tyle co nic, a więc nie bardzo umiem pomóc. Myślę że jak już to @kAzek więcej dłubał i inni którzy wypowiadali się w dawnych wątkach z pytaniami o Sockety w Delphi i Synapse, poza mną. Bo ja tu rzadko zaglądam. Tak jak bardzo rzadko programuje coś w Delphi czy PHP, ale to już pisałem nie raz.