MainMenu - Dynamisch - Itemsabfrage

[Blackheart]

Hallo Leute
Ich bräuchte die Items von Selbsterzeugten MainMenu Einträgen, das klappt ganz
gut bis auf das er Mir beim Öffnen des MainMenus auch den Namem (Datei) liefert.
Wie könnt Ich das umgehen.
Ich bräucht nur die Items der neu erzeugten.

Hier mal Mein Versuch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
 NewItem: TMenuItem;
begin
  Inc(i);
  NewItem := TMenuItem.Create(Self);
  NewItem.Caption := 'Neuer Eintrag'+IntToStr(i);
  Datei.Add(NewItem);
  NewItem.OnClick:=DateiClick ;
end;

procedure TForm1.DateiClick(Sender: TObject);
begin
  Caption:=TMenuItem(Sender).Caption;
end;