Не могу понять в чем ошибка, уже и гуглил
Ошибка в УстановитьДействие: Недопустимое значение параметра (2) (Процедура, указанная в качестве обработчика события, имеет неверное количество параметров).
Параметры мне важно изменять в процедуре
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший