跨进程插入button，关于回调函数如何写

跨进程插入button，关于回调函数怎么写？
Wnd := CreateWindowEx(0, {不使用扩展风格}
  'button', {窗口类型名}
  'PUSH ME', {标题}
  WS_VISIBLE or WS_CHILD, {窗口的常规样式}
  30,10,120,24,
  AHandle, {父窗口}
  0, {主菜单}
  HInstance, {实例句柄}
  nil
  );

我插入一个'button'到线程里，现在想要做点击的函数，
以前用SetWindowLong(Wnd, GWL_WNDPROC, LongInt(MakeObjectInstance(wmicb1)));
在delphi 里用不好，谁给我写一下？

[解决办法]

Delphi(Pascal) code

var  Wnd: THandle;  OldWndProc: Pointer;function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;begin  { 这里添加你的处理代码}  Result := CallWindowProc(OldWndProc, hHwnd, Msg, wParam, lParam);end;