[Rosenkrantz]

Параметр Sender указывает на компонент, вызвавший событие.
Преобразуйте его к нужному типу.

Код:

Form1.Caption := (Sender as TButton).Caption;