使用Tchart时能实现这样的功能吗?解决思路

使用Tchart时能实现这样的功能吗?
在使用Tchart的时侯我想实现点击Tchart里面的每一个条状图后     进入该条状图显示

其相关信息     类似把     Tchart里面的每一个条状图当作按钮来使用    

请问在delphi里面可以实现吗?    
 
请各位高手帮忙         谢谢

------解决方案--------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TBarSeries;
procedure FormCreate(Sender: TObject);
private
procedure TForm1PieSeriesOnClick(Sender: TChartSeries; ValueIndex: Longint; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.Add(2.3);
Series1.Add(5.3);
Series1.Add(2.1);
Series1.Add(5.8);
Series1.OnClick := TForm1PieSeriesOnClick;
end;

procedure TForm1.TForm1PieSeriesOnClick(Sender: TChartSeries;
ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
ShowMessage( 'This point value: ' + FloatToStr(Sender.YValues[ValueIndex]));
end;

end.


------解决方案--------------------
在TChart事件OnClickSeries中写入代码即可
例一柱形图：ValueIndex:为此柱形图索引，Series.Name:为此柱形图名称，
在OnClickSeries事件中代码：
　　ShowMessage( 'Series Name: '+Series.Name+ ' 位于 '+inttostr(ValueIndex));
当点击第一个柱形图显示结果为：“Series Name： Series1 位于 0 '

我在写代码时经常写上一个东东时加一个点，如:　Chart1. ,通常根据出现在提示写下一步的代码，有一些属性不知道的就是这样知道的，再就是Delphi的帮助中可以看到控件的属性、事件、方法什么的，好多还带有例子，我也是初学Delphi,就是这样一步步来做的，希望各位高手能多多指点！