В Делфи делается так — как уже писали выше, задаешь св-ву Tag каждой кнопки оригинальное значение и дергаешь его в процедуре вот таким методом:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Tag кнопки = ' + IntToStr(TButton(Sender).Tag);
end;