alterado nome de metodo para facilitar
Merge branch 'master' of https://github.com/cust/delphi
ajustes