Sophia Charlotte, Queen in Prussia