anchor.diff:      ImageName := '';
       TabOrder := 7;
       OnClick := @btnAddClicked;
  -    Enabled := False;
  +//    Enabled := False;
     end;
   
     btnEdit := TfpgButton.Create(self);
  
positive.code:     ImageName := '';
      TabOrder := 9;
      OnClick := @btnDeleteClicked;
      Enabled := False;
    end;
  
    btnRetrieve := TfpgButton.Create(self);
  
negative.code:   lData: TPerson;
  begin
    lData := medGrid.SelectedObject as TPerson;
    if lData = nil then
      Exit;
    edtName.Text  := lData.Name;
    edtAge.Text   := IntToStr(lData.Age);
  end;
  