Получить Tag TButton

[Shouldercannon]

Доброго времени суток!
Есть 5 TButton и у каждой разный свой Tag. Как через единую для всех процедуру получить Tag нажатой кнопки?

[BLACK_RAIN]

(Sender as TButton).Tag

[Shouldercannon]

А как это провернуть через общую для всех кнопок процедуру?
Допустим есть процедура

procedure check;
begin
Self.Caption := IntTostr(TButton(Sender).Tag);
end;

[BLACK_RAIN]

Сообщение от Shouldercannon

А как это провернуть через общую для всех кнопок процедуру?

Общая процедура должна быть такая

procedure TForm1.BtnClick(Sender: TObject);
begin
  caption := IntToStr((Sender as TButton).tag);
end;

в редакторе свойств или в коде делаем
button1.OnClick := BtnClick;
button2.OnClick := BtnClick;
button3.OnClick := BtnClick;

Процедура с другой сигнатурой (как у вас) просто не назначится как обработчик кнопки. Программа не скомпилируется.
И еще: процедура должна быть членом какого-то класса. Например, вашей формы.