1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  for i := 0 to xx do
  begin
    // Create a new Menu Item
    // Neuen Menüpunkt erzeugen
    NewItem := TMenuItem.Create(Self);
    // Add name
    // Name
    NewItem.Caption := 'Test'+IntToStr(i);
    // Caption
    NewItem.Caption := 'Test'+IntToStr(i);
    // Add the new menu
    // Den neuen Menüpunkt hinzufügen
    MainMenu.Add(NewItem);
  end;//for i := 0 to					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

//Bsp
procedure TForm1.MainMenuClick(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to MainMenu.Count - 1 do
  begin
    if MainMenu.Items[i].Click := true then // <- hier ist das Probelm!!!
      MainMenu.Items[i].Checked := true;
  end; //for i := 0
end;					

1:
2:
3:
4:

procedure TForm1.MainMenuClick(Sender: TObject);
begin
  TMenuItem(Sender).Checked := not TMenuItem(Sender).Checked;
end;