Type
  TBlotterModel_InplacePersonContact = Class (TBlotterModelBase<TPersonContactListItem>, IBlotterInplacePersonContact)
  Private
     _canCommandUpdate: TCommandBoolFunction;
  protected
    function CanCommandUpdate: boolean; override;
    procedure ModelConstructor; override;
  Public
  End;

implementation
Procedure TBlotterModel_InplacePersonContact.ModelConstructor;
begin
  Inherited;
  cctx.Bind_<IBlotterInplacePersonContact>('IBlotterInplacePersonContact', Self);
  _canCommandUpdate := cctx.Get_<TCommandBoolFunction>('CanCommandUpdate');
end;

function TBlotterModel_InplacePersonContact.CanCommandUpdate: boolean;
begin
  Result := Assigned(_canCommandUpdate) and _canCommandUpdate();
end;

function TModel_PersonNew.CanCommandUpdateContact: Boolean;
begin
  Result := not IsReadOnly and Assigned(BlotterContact.Selected) and
  (BlotterContact.SelectedRows.Count = 1) and ((BlotterContact.Selected.Cont_Type = TDBConst.GetInstance.GetPerson('PSN_CONTACT_PHONE_CLIENT'))
   or (BlotterContact.Selected.Cont_Type = TDBConst.GetInstance.GetPerson('PSN_CONTACT_EMAIL_MAIN')))
end;

unit BlotterModel_F405;

interface

uses Windows, SysUtils, _ClassBlotterModelBase, F405ListItem;

Type
  TBlotterModel_F405 = Class (TBlotterModelBase<TF405ListItem>)
  protected
    procedure ModelConstructor; Override;

  End;

  TTestClass = class
  private
    FCOunt: Integer;
  public
    constructor create();
    Destructor Destroy; Override;
    function S: Integer;
  end;

  TIntFunc = reference to function: Integer;

implementation

uses _classmessageBrokerHelper, intfStatusWriter, dialogs;

{ TBlotterModel_F405 }

procedure TBlotterModel_F405.ModelConstructor;
var i: integer;
    t: TTestClass;
    [WEAK] f: TIntFunc;
begin
  inherited;
  t := TTestClass.create;
  f := t.S;
  for i := 1 to 1000 do
    f();
  t.Free;

  for i := 1 to 1000 do
    if assigned(f) then
      f();

end;

{ TTestClass }

constructor TTestClass.create;
begin
  FCount := 1000;
end;

destructor TTestClass.Destroy;
begin
  ShowMessage('Destroy');
  inherited;
end;

function TTestClass.S: Integer;
begin
  Randomize;
  Result := Random(FCount);
end;

end.