Inherited/fi

Type  
  TMyClass = Class(TComponent)  
    Constructor Create(AOwner : TComponent); override;  
  end; 

Constructor TMyClass.Create(AOwner : TComponent);  
begin  
  Inherited;  
  // tehdään lisää asioita  
end;

  ...
  TTest.Create;
  begin
    inherited; // Aina  rakentajien alussa. Aloittaa vanhemman luokan rakentamisen 
    ...
  end;

  ...
  TTest.Create(...);
  begin
    Inherited Create(...); // Aina  rakentajien alussa. Aloittaa vanhemman luokan rakentamisen 
    ...
  end;
  ...

  TTest.Destroy;
  begin
    ...
    inherited;  // Aina purkajan lopussa ja aloittaa vanhemman luokan purkajan
  end;
  ...