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; // ну и кто его сейчас может изменить ?

#pas
Font.Color := Control.Font.Color;

Add(MainForm,2953706,168,217)
{
}
Add(FontManager,6528328,301,154)
{
 ControlManager="BitBtn"
 Point(FontCharset)
}
Add(Font,10839767,301,231)
{
 Font=[MS Sans Serif,8,0,128,1]
 Point(CharSet)
 link(onFont,14338852:doWork2,[])
 link(Size,2773481:Var2,[])
 link(Name,10012655:Var2,[])
 link(Style,14116883:Var2,[])
 link(CharSet,15348443:Var2,[])
}
Add(Timer,117992,168,266)
{
 Interval=500
 Enable=1
 link(onTimer,2063175:doSwitch,[])
}
Add(Font,12452400,343,273)
{
 Font=[MS Sans Serif,8,0,65535,1]
 Point(CharSet)
 link(onFont,14338852:doWork3,[(396,279)])
 link(Size,2773481:Var3,[(349,198)])
 link(Name,10012655:Var3,[(363,205)])
 link(Style,14116883:Var3,[(370,212)])
 link(CharSet,15348443:Var3,[(377,219)])
}
Add(Switch,2063175,210,266)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 link(onSwitch,1093669:doEvent,[])
}
Add(IndexToChanel,1093669,252,266)
{
 link(onEvent1,10839767:doFont,[(292,272)(292,237)])
 link(onEvent2,12452400:doFont,[])
}
Add(GetDataEx,2773481,294,189)
{
 link(Data,6528328:FontSize,[])
}
Add(GetDataEx,10012655,308,196)
{
 link(Data,6528328:FontName,[])
}
Add(GetDataEx,14116883,315,203)
{
 link(Data,6528328:FontStyle,[])
}
Add(GetDataEx,15348443,322,210)
{
 link(Data,6528328:FontCharset,[])
}
Add(HubEx,14338852,392,224)
{
 Angle=3
 link(onEvent,6528328:doSetFont,[(396,142)(290,142)(290,160)])
}
Add(BitBtn,7545736,126,266)
{
 Left=45
 Top=55
 Font=[MS Sans Serif,8,1,128,1]
 Name="BitBtn"
 Caption="Start"
 Flat=1
 Point(doFont)
 link(onClick,117992:doTimer,[])
}

    end else Font.Color := Control.Font.Color;