anchor.diff:      Anchors := [anLeft,anRight,anTop,anBottom];
       FontDesc := '#Grid';
       HeaderFontDesc := '#GridHeader';
  +    OnDoubleClick := @GridDoubleClicked;
     end;
   
     btnAdd := TfpgButton.Create(self);
  
positive.code:     {@VFD_HEAD_END: MainForm}
      FMediator: TFormMediator;
      procedure FormShow(Sender: TObject);
      procedure SetupMediators;
      procedure miEditAddClick(Sender: TObject);
      procedure miEditEditClick(Sender: TObject);
  
negative.code: // do nothing yet
  end;
  
  procedure TMainForm.GridDoubleClicked(Sender: TObject; AButton: TMouseButton;
    AShift: TShiftState; const AMousePos: TPoint);
  begin
    miEditEditClick(nil);
  end;
  
  procedure TMainForm.SetupMediators;
  begin
    if not Assigned(FMediator) then
  