anchor.diff:  
         function Connect: boolean;
         procedure Disconnect;
  -      function GetProto: string;
  +      function CheckProto: boolean;
         procedure Log(Message: string);
         procedure ParseHGDPacket(Packet: string; List: TStringList);
         function ProcessReply(Reply: string; var Msg: string): boolean;
  
positive.code:   Classes, SysUtils, BlckSock, StdCtrls, FileUtil, ssl_openssl, LCLProc;
  
  const
    HGD_PROTO: string = '7|0'; //Todo this is a hack. Deal with proper proto
    //The hgd protocol is telnet based, use CRLF as LineEnding
    ProtoLineEnding = CRLF;
  
  
negative.code:         FStatusMessage := FStatusMessage + 'SSL)'
        else
          FStatusMessage := FStatusMessage + 'no SSL)'
      end
      else
      begin
        FState := hsDisconnected;
        Result := False;
        FStatusMessage := 'Error: Protocol of server does not match client';
      end;
    end
    else
  