Flat/Hot эффект для компонентов

type 
   TyourControl = class(TDescControl) 
   private 
     { Private declarations } 
     FLinkFont: TFont; 
     FPassiveFont: TFont; 

     procedure CMMouseEnter(var Msg: TMessage); 
         message CM_MOUSEENTER; 
     procedure CMMouseLeave(var Msg: TMessage); 
         message CM_MOUSELEAVE; 
   end; 

implementation 

procedure TyourControl.CMMouseEnter(var Msg: TMessage); 
begin 
//Изменим цвет, когда мышь над управлением 
Font.Assign(FLinkFont); 
end; 

procedure TyourControl.CMMouseLeave(var Msg: TMessage); 
begin 
//Изменим цвет, когда мышь покинула упрвление 
Font.Assign(FPassiveFont); 
end;