多物件procedure共用-以Button為例

物件procedure共用在網路上有找到兩種方法：
第一種方法，只要把Button的OnClick方法指向Sample1Click即可，但是第2種方法除了必須指向Sample2Click之外，還必須設定各Button的tag屬性，以tag作為判斷的區別，目前使用上傾向第2種方法。

procedure TForm1.Sample1Click(Sender: TObject);
begin
  if Sender = Button1 then ShowMessage('Sample1-Button1')
  else if Sender = Button2 then ShowMessage('Sample1-Button2');
end;

procedure TForm1.Sample2Click(Sender: TObject);
begin
  case TComponent(Sender).Tag of
    1: ShowMessage('Sample2-Button3');
    2: ShowMessage('Sample2-Button4');
  end;
end;