dynamisches PopUp-Menü

[Sugar]

Hallo Forum,

ich möchte ein PopUp-Menü dynamisch erstellen und eine Reihe von Personennamen als menu-Items darstellen. Das funktioniert soweit auch.

for I := 0 to TeamTBL.RecordCount -1 do
begin
A := TMenuItem.Create(Self);
A.AutoCheck := True;
A.Caption := SL[I];
A.OnClick := Was hier tun??
MeinPopUpMenu.Items.Add(A);
end;
....

Dann ist das PopUp gefüllt mit ein Paar Namen. Ich möchte nun, dass ich beim Click auf ein MenuItem den Namen (die Caption) auswerten kann. Weiß aber nicht wie ich das zustande bringen kann.

Ich bin dankbar für jeden Hinweis.

Gruß
Sugar