Adicionado novo exemplo do pattern strategy com delphi mas dessa vez utilizando metodos anonimos (partindo do ponto que a estrategia se resume a um unico metodo