Adicionado implementacao do pattern Strategy em Delphi