Agregar Parametro a Create

[totote]

Bueno chusmeando un poco de código de delphi encontre la solucion, en ves de modificar el create, creo otro constructor y el código sería así:

Código Delphi [-]
type
  TfrmBase = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Cod: Integer;
  public
    { Public declarations }
    constructor CreateNew(AOwner: TComponent; ID: Integer); virtual;
  end;

constructor TfrmBase.CreateNew(AOwner: TComponent; ID: Integer);
begin
  inherited Create(AOwner);
  Cod:= ID;
end;

De esa manera me funcionó.

Saludos