Delphi Firemonkey IOS TContextOpenGL.DestroyPixelShader EXC\u坏访问

我有一个最新的平台，上面有Delphi XE 2 update 4和lion上的Xcode 4.3.2。 我下载了embarcadero示例 因为我需要一个有效的示例来从带有datasnap服务器的firebird数据库中检索用Delphi Firemonkey编写的iOS应用程序中的数据和图片（欢迎所有其他链接）。 当我尝试在Xcode中启动客户端时，会出现永久性错误

procedure TContextOpenGL.DestroyPixelShader(const Shader: TContextShader);    
begin    
  if Valid and (Shader <> 0) and MakeCurrent then    
  glDeleteShader(Shader); <-HERE *****************    
end;

过程TContextOpenGL.DestroyPixelShader（常量着色器：TContextShader）；
开始
如果有效和（着色器0）和MakeCurrent，则
glDeleteShader（着色器） 这意味着您与DataSnap服务器的连接无法正常工作。在那里，做了那件事。。。检查从客户端到服务器的连接设置；-）
 你说得对。我没想到这个错误和表单的on-create事件有关。我在按钮上移动oncreate事件的代码，应用程序正在运行。我必须学习更多关于DelphiFireMonkey调试的信息。非常感谢。