String aus zur Laufzeit erstelltem PopUpMenü zurückgeben?

[Grolle]

Hallo,

nein ich habe keinen Handler zugeordnet. Hier mein Text:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
a : TMenuItem;
sl : TStringList;
i : integer;
begin
  sl :=TStringList.Create;
  sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'daten\gruppen.txt');
  sl.Add('Alle Gruppen');
  for i := 0 to SL.Count - 1 do
   begin
    a := TMenuItem.Create(Self);
    a.Caption := SL[i];
    a.Hint    := SL[i];
    PopUpMenu1.Items.Add(a);
   end;
  sl.free;
end;