...
type
  TCustomPater = class
    procedure ShowName0;
  end;

  TFirstPater = class(TCustomPater)
    procedure ShowName1;
  end;

  TSecondPater = class(TFirstPater)
    procedure ShowName2;
  end;

  TPater = class(TSecondPater)
  public
    procedure ShowName;
  end;
...
{ TCustomPater }
procedure TCustomPater.ShowName0;
begin
  ShowMessage(TCustomPater.ClassName + '.ShowName0');
end;

{ TFirstPater }
procedure TFirstPater.ShowName1;
begin
  ShowMessage(TFirstPater.ClassName + '.ShowName1');
end;

{ TSecondPater }
procedure TSecondPater.ShowName2;
begin
  ShowMessage(TSecondPater.ClassName + '.ShowName2');
end;

{ TPater }
procedure TPater.ShowName;
begin
  ShowName0;
  ShowName1;
  ShowName2;
end;
...
  with TPater.Create do
  try
    ShowName;
  finally
    Free;
  end;
...