Fórum Duvida com override e virtual #352072

   type
     tTeste = class
     private
        procedure ProcTeste;Virtual;//Esse procedimento poderá ser mudado nas classes derivadas dessas bastando colocar o método override após a chamada do mesmo procedimento na classe derivada.
     end;


     tTesteDerivada = Class(tTeste)
     private
        procedure ProcTeste;Override;//Esse método irá subistituir o método na classe ProcTeste da classe da qual foi derivada a classe TesteDerivada.
     end;