Einem Erzeugtem MenuItem ein Onclick zuweißen.

[Die Muhkuh]

Hi,

ich erstelle mit:

Delphi-Quellcode:

  Item1 := TMenuItem.Create(Self);
  Item2 := TMenuItem.Create(Self);
  Item3 := TMenuItem.Create(Self);
  Item4 := TMenuItem.Create(Self);
  Item5 := TMenuItem.Create(Self);

  List := TStringList.Create;
  List.LoadFromFile(SettingPath + 'LastFiles.txt');


  Item1.Caption := List.Strings[0];
  Item2.Caption := List.Strings[1];
  Item3.Caption := List.Strings[2];
  Item4.Caption := List.Strings[3];
  Item5.Caption := List.Strings[4];
  Form1.MainMenu1.Items[0].Items[6].Add(Item1);
  Form1.MainMenu1.Items[0].Items[6].Add(Item2);
  Form1.MainMenu1.Items[0].Items[6].Add(Item3);
  Form1.MainMenu1.Items[0].Items[6].Add(Item4);
  Form1.MainMenu1.Items[0].Items[6].Add(Item5);

5 MenüItems! (Wie der Code aussieht intressiert jetzt keinen!)

Die Caption sind immer die zuletzt geöffneten Dateien. Wie kann ich diesen Items ein OnClick zuweißen damit mein Programm daraufhin die Datei lädt?