Puedes mostrar como creas el buttom, para q puedas heredar los methods dberias crearlo de esta forma oBtn[nButon] := TButton:New( nRow, nCol, cCaption, oWnd, bAction, nWidth, nHeight, nHelpId, oFont, lDefault,; lPixel, lDesign, cMsg, lUpdate, bWhen, ...