procedure THIWin._work_doFont;
begin
   if _IsFont(Data) then
      with pfontrec(Data.idata)^ do begin
         Control.Font.Color := Color;
         SetFont(Control.Font,Style);
         Control.Font.FontName :=  Name;
         Control.Font.FontHeight := _hi_SizeFnt(Size);
         Control.Font.FontCharset := CharSet;
         _prop_Font := pfontrec(Data.idata)^;   // а почему бы не добавить ???
      end;
end;

    if BtnState=2 then begin
      Font.Color := clWindow;
      inc(r.Top); inc(r.Left);
      inc(r.Bottom); inc(r.Right);
      DrawText(Control.Caption,r,DT_EXPANDTABS or DT_SINGLELINE or DT_CENTER or DT_VCENTER);
      dec(r.Top);  dec(r.Left);
      dec(r.Bottom); dec(r.Right);
      Font.Color := clBtnShadow;
    end else Font.Color := _prop_Font.Color; // ну и кто его сейчас может изменить ?