Add(MainForm,2953706,371,266)
{
 link(onCreate,8796146:doData,[])
}
Add(DoData,8796146,427,280)
{
 Data=Integer(0)
 link(onEventData,13136908:doWidth,[])
 AddHint(0,-24,21,13,Data)
}
Add(LedNumber,13136908,476,273)
{
 Left=565
 Top=270
 Point(doText)
 Point(doWidth)
}

procedure ThiLedNumberEx.UpdateDrawBuffer;
..
..
..
  begin
   with Control{$ifndef F_P}^{$endif} do begin
    if (height = 0) or (width = 0) then exit;//добавить