Código Delphi [-]
 
Persona = Class {Clase Padre}
 Protected 
  Nom,Ape: string;
  Edad: integer;
 Public
 constructor Init (N,A:string; E:integer);
end;
 
Estudiante = Class (Persona) {Clase derivada}
 Protected
  Esc: string;
 Public
  constructor InitE (N,A,ES:string; E:integer); 
end;

Código Delphi [-]
constructor Estudiante.InitE (N,A,ES:string; E:integer);
begin
  Init(N, A, E);

  {
    código propio de Estudiante
  }
end;

Código Delphi [-]
var
  est: Estudiante;

begin
  est := Estudiante.InitE('valor N', 'valor A', 'valor ES', valorE);
end;