begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
if AsInt = 1 then // если значение переменной объекта = 1
Visible := True // показать объект
else // иначе
Visible := False; // скрыть объект
end.