请高手读一下关于消息的代码！如何更正？？？

Question

procedure tform1.formcreate(...);
begin
  postmessage(self.handle,wm_user+100,0,0);
end;....
procedure wndproc(var testmsg:tmessage);
begin
   if testmsg.msg=wm_user+100 then
     begin
             form1.stringgrid1.cells[0,0]:='test1';
     end
end;
     form1.运行正常，但是没有显示test1
end;

Answer 1

下面的form1和end没有，对不起！！！

Answer 2

//如果是按上面理解的意思可以这样写
//temp为一个串变量Application.MessageBox(pchar('查找成功！共找到'+temp+'条记录。'),'系统信息',MB_OK+MB_ICONINFORMATION);不知道我理解对没有。