MainMenu einträge automatisch erstellen lassn

[Master_BB]

Hy,
ich kriegs nicht so ganz hin das er MainMenu einträge automatisch während der laufzeit erstellt.
Dabei sollen Datensätze aus einer Typisiertendatei die Caption der neuen einträge sein.
Einträge sollen soviele wie Datensätze vorhanden sind erstellt werden.
Bisher siehts so aus:

Delphi-Quellcode:

 filename := ExtractFilePath(Application.ExeName)+genresfilename;
 assignfile(genrefile,filename);
 if fileexists(filename) then reset(genrefile) else rewrite(genrefile);
 for i := 1 to filesize(genrefile) do begin
  read(genrefile,genres[i]);
  Mainmenu1.Items.Items[3].Items[0].Add(Item.Tmenuitem);
 end;
 closefile(genrefile);

die erstellten Einträge sollen untereinträge von dem Items[0] sein.
Wenn mir jemand weiter helfen könnte wäre das sehr schön.

Greetz
Master_BB