如何在动态创建item的同时，能动态创建事件(100分)

procedure TFproDepater.PGonclick(Sender: TObject);
begin
？？？？？？？？？？？？？？？？？？
end;

procedure TFproDepater.RzButton7Click(Sender: TObject);
var
i:Integer;
begin
adoquery5.Close;
adoquery5.SQL.Text := 'select * from folder_PGGW ';
adoquery5.Open;
if adoquery5.RecordCount > 0 then
begin
for I:=0 to adoquery5.RecordCount-1 do
begin
RzGroupBar5.Groups[0].Items.Add;
rzgroupbar5.Groups[0].Items.Caption := adoquery5.fieldbyname('CJ').AsString+' '+adoquery5.fieldbyname('GWname').AsString;
rzgroupbar5.Groups[0].Items.OnClick := PGonclick;
adoquery5.Next;
end;
end;
end;



这是根据数据库的记录条数动态在RzGroupBa的控件中的rzgroup中加item
但是item的事件都不同。。如何在PGonclick获取item中名字

应该可以通过点击的Item的caption来区别，或者tag.

应该是根据　TS　这个参数来确定CAPTION
showmessage(ts.xxxx);

关健就是如何获取当前点击item的属性呀。

能具体点么。