关于"A call to an OS function failed"的问题!(100分)

程序中添加,下面这段代码:
procedure TMainForm.CreateWnd;
begin
inherited;
// Turn the ClientWndProc method into a valid window procedure
FNewClientProc := MakeObjectInstance(ClientWndProc);
// Get a pointer to the original window procedure
FOldClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
// Set ClientWndProc as the new window procedure
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FNewClientProc));
end;
再打开MDIChild窗体时,系统报错:
A call to an OS function failed!各位老大,这个问题怎么解决阿?

据说是因为你在某个操作系统下编译，在另外一个操作系统运行，在相应的操作系统重新编译一下看看

老大，这个不具体阿。我没有在别的系统运行过！给个具体的解决办法啊