动态创建popmenu怎样得到item.Caption?

[ZBYF]

with dmpub.qrypub do
begin
Close;
SQL.Clear;
SQL.Add('select 职员名称 from 职员表');
Open;
while not eof do
begin
NewItem:=TMenuItem.Create(self);
NewItem.Caption:=Fields[0].AsString;
Newitem.OnClick:=pmclick;
pmZY.Items.Add(NewItem);
Next;
end; // while
end; // with


procedure TtclForm.pmclick(Sender:Tobject);
begin
with tclform do
begin
Newitem:=lv1.Items.Add;
newitem.Caption:=lvkx.Selected.Caption;
newitem.SubItems.Add(lvkx.Selected.SubItems.Strings[0]);
newitem.SubItems.Add(pmzy.Items.Caption);//这里得不到Caption。该怎样才能得到//
lvkx.Selected.Delete;
btn1.Enabled:=false;
end; // with
end;

[ln521]

在这个过程里面
pazy.items.caption
还是个空的吧

[cll007]

procedure TForm1.Button2Click(Sender: TObject);
var
MenuItem:TMenuItem;
begin
MenuItem:=TMenuItem.Create(MainMenu1);
MenuItem.Caption:=DateTimeToStr(now) ;
N111.Add(MenuItem);

MenuItem.OnClick:=MenuItemClick;
end;

//自定义过程
procedure TForm1.MenuItemClick(Sender: TObject);
begin
if Sender is TMenuItem then
Caption:= (Sender as TMenuItem).Caption;
end;