[rgstuamigo]

A partir de una version superior de Delphi 7 (Delphi 2007 por ejmplo)sí se puede, pero de Delphi 7 para abajo no se puede...
En Delphi 2007 se puede hacer así:

Código Delphi [-]
...
type
  TEntidad = class sealed //<-clase cerrada
  private
    Numero: Integer;
    Nombre: String;
  public
    constructor Create;
    procedure SetNombre( s: String );
  end;
..

Si intentamos crear una nueva clase descendiente de TEntidad

Código Delphi [-]
...
TCliente = class( TEntidad )
private
  CIF: String;
end;
..

El compilador gritará un error...
Saludos...