关于设定DirectDraw主页面问题

那为大哥帮我看看我在设定DirectDraw主页面时出错了！代码如下
function TForm1.Draw:integer;
var
  lpDD: IDirectDraw7;
  page: IDirectDrawSurface7 ;
  ddsd:TDDSurfaceDesc2 ;
begin
Result := 0;
if DirectDrawCreateEx(nil, lpDD, IID_IDIRECTDRAW7, nil) <> DD_OK then
  begin
    showmessage('初始化DX出错！');
    exit;
  end;
if lpDD.SetCooperativeLevel(self.Handle ,DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN) <> DD_OK then
  begin
    showmessage('设定DirectDraw的控制级出错！');
    exit;
   end;
if lpDD.SetDisplayMode(640, 480, 32, 0, DDSDM_STANDARDVGAMODE) <> DD_OK then
  begin
    showmessage('设定DirectDraw显示对象出错！');
    exit;
  end;
ddsd.dwSize :=sizeof(ddsd);
ddsd.dwFlags :=DDSD_CAPS;
ddsd.ddsCaps.dwCaps :=DDSCAPS_PRIMARYSURFACE;  
if lpDD.CreateSurface(ddsd,page,nil)<>DD_Ok then
 begin
  showmessage('设定DirectDraw主页面出错！');
    exit;
 end;
    
end ;