Embarcadero RAD Studio XE. На панели несколько кнопочек BitBtn, в caption стоит 1,2 и т.д
Хочу прописать одну процедуру в OnClick всем кнопкам BitBtn и разбирать caption, т.к. обработчик один,  caption всего лишь смещение, не хотелось бы городить на каждый OnClick свою процедуру и потом в обработчик пересылать только номер.
В заголовке процедуры только Sender
procedure TForm1.BitBtn1Click(Sender: TObject);
Есть ли возможность получить caption от BitBtn? 
Заранее спасибо за помощь!!



Это сообщение отредактировал(а) yulyaT - 30.1.2012, 10:23

(Sender as TBitBtn).Caption

почитай про RTTI