Hack in blcksock.pas (laz_synapse.lpk 40.1)

blcksock.pas

    procedure TTCPBlockSocket.HTTPTunnelDoConnect(IP, Port: string);
    //bugfixed by Mike Green (mgreen@emixode.com)
    var
      s: string;
    begin
      //Port := IntToStr(ResolvePort(Port));
      inherited Connect(FHTTPTunnelIP, FHTTPTunnelPort);
      if FLastError <> 0 then
        Exit;
      FHTTPTunnel := False;