anchor.diff:          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
  
positive.code:       FEncrypted := False;
      end;
  
      if GetProto() <> HGD_PROTO then
      begin
        FState := hsDisconnected;
        Result := False;
        FStatusMessage := 'Error: Protocol of server does not match client';
      end
      else
      begin
        FState := hsConnected;
        FStatusMessage := 'Connected (';
  
negative.code: 
        function Connect: boolean;
        procedure Disconnect;
        function CheckProto: boolean;
        procedure Log(Message: string);
        procedure ParseHGDPacket(Packet: string; List: TStringList);
        function ProcessReply(Reply: string; var Msg: string): boolean;
  