эстетичнее будет сделать один обработчик для всех кнопок, инкремент хранить например в Tag кнопки а обработчик для всех кнопок например такой
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
Caption := IntToStr((sender as TButton).Tag);
end;
Sender здесь ссылка на объект, вызвавший обработчик