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:   end;
  end;
  
  function THGDClient.GetProto: string;
  var
    Reply: ansistring;
  begin
    Result := '';
    Log('Getting Proto...');
    Socket.SendString('proto' + ProtoLineEnding);
    Reply := ReceiveString();
    Log('proto reply: ' + Reply);
    if not ProcessReply(Reply, Result) then
      Result := '';
  end;
  
  function THGDClient.GetPlaylist(var PList: TPlaylist): boolean;
  
negative.code:       FEncrypted := False;
      end;
  
      if CheckProto() then
      begin
        FState := hsConnected;
        FStatusMessage := 'Connected (';
  