Duvida em Procedure (override;virtual)

interface

uses
  Forms, Dialogs, Classes, Controls, StdCtrls, SysUtils;

type
  // Definir uma classe base TPolígono:
  // Esta classe será um triângulo se tiver 3 lados, um quadrilátero
  // se tiver 4, assim por diante.

  TPoligono = class
  private
    sideCount  : Integer;  // Quantos lados?
    sideLength : Integer;  // Qual o comprimento do lado?
    shapeArea  : Double;   // Area do poligono
  protected
     procedure setArea; Virtual; Abstract;  // So sera implementado no herdado
    property count  : Integer read sideCount;
    property length : Integer read sideLength;
    property area   : Double  read shapeArea;
    constructor Create(sides, length : Integer);
  end;

  // Definir os descendentes: triangulo e quadrilatero.
  TTriangulo = class(TPoligono)
  protected
    procedure setArea; override;   // Substituindo o metodo em abstract
  end;

  TQuadrilatero = class(TPoligono)
  protected
    procedure setArea; override;   // Substituindo o metodo em abstract
  end;

  // Define the form class used by this unit
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} 

// Criando o objeto TPoligono
constructor TPoligono.Create(sides, length : Integer);
begin
  // Guardar o numero e tamanho dos lados
  sideCount := sides;
  sideLength := length;

  // Calcular a area chamando o metodo setArea :
  // Essa chamada só será feita por uma subclasse.
  setArea;
end;

// Implementar o metodo abstrato setArea para o triangulo.
procedure TTriangulo.setArea;
begin
  // Calcular e salvar a area do triangulo
  shapeArea := (sideLength * sideLength) / 2;
end;

// Implementar o metodo abstrato setArea para o quadrilátero.
procedure TQuadrilatero.setArea;
begin
  // Calcular e salvar a area do quadrilatero
  shapeArea := sideLength * sideLength;
end;

// Código principal
procedure TForm1.FormCreate(Sender: TObject);
var
  triangulo : TTriangulo;
  quadrado : TQuadrilatero;
begin
  // Criando o triangulo e o quadrilatero
  triangulo := TTriangulo.Create(3, 10);
  quadrado := TQuadrilatero.Create(4, 10);

  // Mostrar a área dos polígonos:
  ShowMessageFmt(´Área do triângulo = ¬f´,[triangulo.area]);
  ShowMessageFmt(´Square   area = ¬f´,[quadrado.area]);
end;

end.