procedure TForm1.Button1Click(Sender: TObject);
begin
 case (Sender as Tbutton).Tag of
  1:ShowMessage((Sender as Tbutton).Caption);
  2:ShowMessage((Sender as Tbutton).Caption);
 end;
end;