TCustomEditButton

pt 

OnButtonClick