Agregar Parametro a Create

[totote]

Buenas gente, cómo puedo hacer para agregar un parametro a un constructor, la idea es, yo tengo varios formularios en el cual se le asigna un código, lo que quiero hacer es que cuando creo el formulario a parte del parametro de siempre :P le pase un número que va a ser el código que le asigno, lo que habia hecho era esto:

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

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

Pero me da el error :
Declaration of 'Create' differs from previous declaration

Agradeceria cualquier tipo de ayuda.

Saludos