procedure THILedText.init;
  begin

    Control.Height := _prop_Height;
    Control.Width := _prop_Width;
    Control.Top := _prop_Top; //добавлено
    Control.Left := _prop_Left; //добавлено
    Control.Caption := _prop_Text;

  procedure THILedNumber.init;
  begin
    Control.Text := _prop_Text;
    Control.Height := _prop_Height;
    Control.Width := _prop_Width;
    Control.Top := _prop_Top; //добавлено
    Control.Left := _prop_Left; //добавлено