??????请教高手：如何触发DBGrid的CellClick事件？？在线等待，分不够再加!

有一个DBGrid1，定义了如下事件：
procedure TFrmMain.DBGrid1CellClick(Column: TColumn);
begin
    .....
end;
有一个按钮Button1,定义了Click事件：
procedure TFrmMain.Button1Click(Sender: TObject);
begin
    .....
    如何在这里触发一个DBGrid1CellClick事件？
    我用了下面的语句，但括号里的参数该怎么写？
    DBGrid1.OnCellClick(此处参数该怎么写？);
end;