Einträge im Untermenü zur Laufzeit erzeugen

[EvilDragon]

hab nach diesem beispiel alles gemacht, klappt auch, nur wie bekomme ich es jetzt hin, das beim klick auf eins der erstellten untermenüs etwas ausgeführt wird??

Delphi-Quellcode:

  findfirst(ExtractFilePath(ParamStr(0))+'skins/'+'*.ini',faAnyFile-faDirectory,F);
  repeat
    if not ((f.name = '.') or (f.name = '..')) then
    begin
      Delete(f.Name, Length(f.Name)-3, 4);
      NewItem := TMenuItem.Create(Self);
      NewItem.Caption := (f.Name);
      Skins2.Add(NewItem);
    end;
  until findnext(F) <> 0;
  ini_skin := TiniFile.Create(ExtractFilePath(ParamStr(0))+'skins/'+skinname);
  try