[cervexa]

A pesar de la sabiduría que me supone Román mi ignorancia es maxima. Despues de intentar todo lo que se me sugiere, no consigo aprobechar vuestros consejos.
He llegado hasta aqui:
He creado un formulario y lo he añadido al proyecto:

type
  TExpTramites = class(TForm)
  private
    FCodigo:Integer;
    FTexto:String;
  public
    { Public declarations }
  published
    property Codigo:Integer Read FCodigo write FCodigo;
    property Texto:String Read FTexto write FTexto;
  end;

De el, creo, que heredo las propiedades Codigo y Texto en este otro:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UExpTramites;
type
  TExpTra999 = class(TExpTramites)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

Y lo llamo así:

procedure TExpedientes.ToolButton1Click(Sender: TObject);
var FormaClase : TFormClass;
    Forma      : TExpTramites;
begin
  FormaClase:=TFormClass(GetClass('TExp'+inttostr((Sender as TToolButton).Tag)));
  if FormaClase<>nil then
    begin
      Forma:=FormaClase.Create(Self);
      Forma.codigo:=1;
      Forma.ShowModal;
      Forma.Free;
    end;
end;
initialization
  RegisterClass(TExpTramites);
  RegisterClass(TExp999);

Pero está claro que no entendido lo que me proponiais, porque no me compila.