[Drozh]

У тебя не связаны кнопка и процедура... Ты что их в ручную писал?!

Выбираешь кнопку -> в Object Inspector переходишь на вкладку Events -> ищешь событие OnClick -> нажимаешь на соседнюю ячейку и выбираешь нужную процедуру из списка