怎的在表单运行时，向grid的第6列中添加命令按钮，并定义命令按钮的click事件

怎样在表单运行时，向grid的第6列中添加命令按钮，并定义命令按钮的click事件？
vfp9.0 我的表单中有一个表格，根据需要会显示不同数据源的数据。数据源中有MEMO字段，比如表格的第6列是MEMO列，我想在这列中加入一个caption为“编辑”的command按钮，当单击这个按钮时就可以对MEMO字段进行编辑。
我在表单的init事件中写入这样的代码：

With This.Column4

    .AddObject("command1","Command")

    .Sparse=.F.

    .command1.Caption='编辑'

    .command1.Visible=.T.

Endwith

运行提示老是错误！！应该怎么做啊？还有，怎样定义这个command1的click事件，以弹出修改MEMO字段的对话框啊？
------解决方案--------------------

在表单上设一个按钮（如：Command100），此按钮的 Visible 为 .F.，即不显示此按钮，此按钮的 Click 事件代码为：

Modify Memory (Thisform.Grid1.Column6.ControlSource)   && 第6列


然后在表单的 Init 事件加代码：

With This.Grid1.Column6   && 第6列

    .AddObject("Command1","CommandButton")

    .CurrentControl='Command1'

    .Sparse=.F.

    .Command1.Caption='编辑'

    .Command1.Visible=.T.

    =Bindevent(.Command1,"Click",Thisform.Command100,"Click")

Endwith