Primeira tradução para delphi, e correção de alguns erros anteriores.