1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure Tf_gam.PopupMenu1Popup(Sender: TObject);
var
  NewItem : TMenuItem ;
begin
   f_start.myq_buchungskreis.close;
   f_start.myq_buchungskreis.paramcheck := true;
   f_start.myq_buchungskreis.params[0].value := 2;
   f_start.myq_buchungskreis.open;
   f_start.myq_buchungskreis.first;
    while not f_start.myq_buchungskreis.Eof do
           begin
             NewItem := TMenuItem.create(self);
             NewItem.Caption := f_start.myq_buchungskreis.FieldValues['bkpraefix'] +   f_start.myq_buchungskreis.FieldValues['bksuffix'];
             NewItem.OnClick := DynMenuClick;
             PopupMenu1.Items.Add(NewItem);
             f_start.myq_buchungskreis.next;
           end;
    f_start.myq_buchungskreis.close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Tf_gam.DynMenuClick(Sender: TObject);
var  DynBeleg : TMenuItem;

begin
   DynBeleg := Sender as TMenuItem;
   MatchCode := DynBeleg.Caption; //Matchcode ist bei mir eine globale Variable
   f_beleg.show;
   PopupMenu1.items.clear; 
end;					

1:

MI_top.Add(MI_Sub);					

1:
2:
3:
4:
5:
6:

var
  NewItem : TMenuItem ;
begin
  NewItem := TMenuItem.create(self);
  NewItem.Caption := 'Ich bin neu hier';
  PopupMenu1.Items[2].Add(NewItem);