property  Default: Boolean read FDefault write FDefault default False;

 property  Cancel: Boolean read FCancel write FCancel default False;

 procedure  CMDialogKey( var  Message: TCMDialogKey); message CM_DIALOGKEY;

 procedure  TSkinButton.CMDialogKey( var  Message: TCMDialogKey);
 begin 
   with  Message  do 
     if  ((CharCode = VK_RETURN)  and  (Focused  or  FDefault)  or 
       (CharCode = VK_ESCAPE)  and  FCancel)  and 
       (KeyDataToShiftState(Message.KeyData) = [])  and  CanFocus  then 
     begin 
      Click;
      Result :=  1 ;
     end 
     else   inherited ;
 end ;