Delphi 如何用sendmessage 发送单击到 stringGrid

描述：我要做一个程序Ａ控制另一个程序Ｂ
目的：从程序Ａ　发送一个单击事件到程序Ｂ中的 stringgrid ,ＳtringGrid 中有256个单元格，（16*16），我要向指定单元格发送单击事件，cells[2,2],只是这一个单元格，其他不能单击。现已知StringGrid 的句柄，矩阵。单击完成之后，要回到程序Ａ。我用了
var p:tpoint;
       sendmessage(h1,WM_LButtonDown,0,makelParam(p.x,p.y));
       sendmessage(h1,WM_LButtonUp,0,makelParam(p.x,p.y));
只能单击第一个单元格，p.x  p.y 是我要单击的坐标。
谢谢。　