procedure THIMainForm._work_doTaskBar;
begin
  Applet.Visible := ToInteger(Data) <> 0;
end;