通过覆盖一个方法可以实现OOP的多态性的概念。通过覆盖方法可以在不同的实现类中有不同的行为。Delphi中能够被覆盖的方法限定为Virtual和Dynamic的方法。为了覆盖一个方法，在派生类中用Override代替上面的标识符。

注意：在声明方法的时候，如果派生类中的方法名没有带Override，但是名称和父类的相同。这个时候派生类中方法和父类中的这个方法都同时存在，没有覆盖父类的方法。

例子如下：

Type

    T1 = class

     procedure AB; Virtual;

end;

T2 = class(T1)

     procedure AB;

end;

Var

  Some1: T1;

  Some2: T2;

begin

  Some1 := T2.Create;

  Some1.AB;  调用的是父类T1的方法。

 Some2 := T2.Create;

  Some1.AB;  调用的是子类T23的方法。

end;