Factory exemplo

unit Factory;

interface

uses classes;
(* Declarar aqui todos os forms todas as classes e métodos mais importnates se quiser fazer uma camada mais direta
para acesso aos métodos de outros forms ou classes *)

 type iCreator = interface
   ['{6C468335-2AAA-4D9B-B4A6-FEC334781EDC}']

  function getFrmUPagammento: TfrmUPagamento;
  procedure setFrmUPagammento(const Value: TfrmUPagamento);
  property FormPagamento: TfrmUPagamento read getFrmUPagammento write setFrmUPagammento;
  procedure CreateFrmPagamento;
 end;

 type TCreator = class(TObject)
 private
 {Private declaration}
 FrmUPagammento: TfrmUPagamento;
    function getFrmUPagammento: TfrmUPagamento;
    procedure setFrmUPagammento(const Value: TfrmUPagamento);
 protected
 {Protected declaration}
 public
 {Public declaration declaration}

  property FormPagamento: TfrmUPagamento read getFrmUPagammento write setFrmUPagammento;
  procedure CreateFrmPagamento;
   constructor Create; (*Metodos do Constructor*)
   destructor Destroy; override;

 published
 {Protected declaration}
 end;

  var Fact: iCreator;

implementation

{ TCreator }

constructor TCreator.Create;
begin

end;

procedure TCreator.CreateFrmPagamento;
begin
   if not assigned( FrmUPagammento ) then
  begin
     FrmUPagammento := TformUPagamento.create(Application);
  end;

end;

destructor TCreator.Destroy;
begin

  inherited;
end;

function TCreator.getFrmUPagammento: TfrmUPagamento;
begin

  Result:= FrmUPagammento;
end;

procedure TCreator.setFrmUPagammento(const Value: TfrmUPagamento);
begin
   FrmUPagammento := Value;
end;

end.