Delphi 如何判断cxgrid中单击了哪一列

procedure TFormModel.cxGrid1DBTableView1CellClick(

 Sender: TcxCustomGridTableView;

 ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

 AShift: TShiftState; var AHandled: Boolean);

begin

 ShowMessage(ACellViewInfo.Item.Caption);

end;