factory method oop

type

  product = class abstract
  public
    nome : string;
    sexo : string;
  end;


  concreteproductM = class(product)
  public
  function m : string;
  end;

  concreteproductH = class(product)
    public
    function h : string;
  end;

  creator = class abstract
  public
    function showinfo(sexo : string) : string; virtual; abstract;
  end;

  concretecreator = class(creator)
    function showinfo(sexo : string) : string; override;
  end;





{ concreatecreatorM }

function concreteproductM.m: string;
begin
  result:= 'mulher';
end;

{ concretecreatorH }

function concreteproductH.h: string;
begin
  result:= 'homem';
end;

{ concretecreator }

function concretecreator.showinfo(sexo: string) : string;
begin
  if sexo = 'M' then
  begin
    Result:= concreteproductM.Create.m;
  end;
  if sexo = 'H' then
  begin
    result:= concreteproductH.Create.h;
  end;
end;