Delphi 怎么用sendmessage 发送单击到 stringGrid

Delphi 如何用sendmessage 发送单击到 stringGrid
描述:我要做一个程序A控制另一个程序B
目的:从程序A 发送一个单击事件到程序B中的 stringgrid ,StringGrid 中有256个单元格,(16*16),我要向指定单元格发送单击事件,cells[2,2],只是这一个单元格,其他不能单击。现已知StringGrid 的句柄,矩阵。单击完成之后,要回到程序A。

我用了 
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 是我要单击的坐标。
谢谢。

------解决方案--------------------
就按你说的做不就成了?你说的很对