delphi动态获取点击的MenuItem

procedure TForm1.OnClick(Sender: TObject);
begin
if Sender is TButton then
begin
if TButton(Sender).Name = ‘button1’ then
.. .
else if TButton(Sender).Name = ‘button2’ then
.. .
end;
end;