DBGrid的OnCellClick不响应的问题

想让DBGrid响应OnCellClick,已经将OPTIONS里面的第一个EDIT设为FALSE,向Edit1写东西是测试用的不用理会
按下面的程序来写,运行时不提示错误,但无论怎么点DBGrid都没有任何反应uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls, DBCtrls;type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    procedure DBGrid1CellClick(Column:   TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1CellClick(Column:   TColumn);
begin
Form1.Edit1.Text :='xxxx';
end;end.寻求解决办法......