请问怎样将记录加入到PopupMenu的items(50分)

将数据库表中某一字段的记录逐条加入PopupMenu1的items

var
mItem:TMenuItem;
mItem := TMenuItem.Create(Self);
while not qurey1.eof
begin
mItem.Caption := Query1.FieldByName('fn').AsString;
mItem.OnClick := YourEvt; //YourEvt是自定义的事件，响应onclick
Query1.Next;
end;

var
mItem:TMenuItem;
i : integer;
begin
i:=0;
mItem := TMenuItem.Create(Self);
while not qurey1.eof
begin
inc(i);
mItem.Caption := Query1.FieldByName('fn').AsString;
mitem.tag := i;
mItem.OnClick := YourEvt; //YourEvt是自定义的事件，响应onclick
popupmenu1.insert(0, mitem);
Query1.Next;
end;

处理onclick函数
procedure Tform1.YourEvt(sender : Tobject);
begin
case Tmenuitem(sender).tag of
1:
doitem1;
2:
doitem2;
3:
doitem3;
end;
end;

多人接受答案了。