procedure TForm1.b1Click(Sender: TObject);
begin
form2.Caption:=mainmenu1.Items[0].Caption;
form2.ShowModal;
end;

菜单上的项目很多,我想用一个命令就OK.

procedure TForm1.N1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 1 do
  if sender = menu3.Items.Items[i] then
    Form2.Caption:=copy(menu3.Items.Items[i].Caption,1,length(menu3.Items.Items[i].Caption));
  Form2.ShowModal;
end;