procedure TForm1.N4Click(Sender: TObject);
var
  i:integer;
begin
  for i:=3 to  mainmenu1.Items.Items[0].Count-3 do//这个for用来干什么?
  begin
  mainmenu1.Items.Items[0].Items[i].OnClick:=mainmenu1.Items.Items[0].Items[2].OnClick;{这个语句用来干什 么?}  end;
  self.Close;
end;