У вас ведь есть уже такой замечательный помощник в энтом деле как Sender, т.е. тот - кто сработал, в данном случае вам остаётся напр. задать свойство Tag у ваших "кнопарей" по-порядку, в смысле shape1.tag = 1.. shape20.tag = 20 в обжект инспекторе, а дальше прописать в единственном обработчике клика такое
Код:
x[(Sender as TShape).Tag]:=1;
и всё, конечно, при условии, что вы зададите этот обработчик для всех остальных "нажималок"