[[coso]]

Hola, tansolo tendras que hacer overload del create

Código Delphi [-]
type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
  private
  public
     constructor Create(AOwner : TComponent);  overload; override;
     constructor Create(AOwner : TComponent; s : string); overload;
  end;

var
  Form1: TForm1;

implementation

constructor TForm1.Create(AOwner : TComponent);
begin
     ShowMessage(AOwner.ClassName);
     inherited Create(AOwner);
end;

constructor TForm1.Create(AOwner : TComponent; s : string);
begin
     ShowMessage(s);
     Create(AOwner);
end;