FD3DDevice: IDirect3DDevice9;
    FID3DXFont: ID3DXFont;
    FD3DVB: IDirect3DVertexBuffer9;
    FD3DIB16: IDirect3DTexture9;
    FID3DSurface: IDirect3DSurface9;

procedure Init;
begin
  D3DXCreateFont(FD3DDevice, FFont.Handle, FID3DXFont);
  FD3DDevice.CreateVertexBuffer(C_COUNT_POINT_VERTEXBUFFER_MIN *
    SizeOf(TCUSTOMVERTEX), D3DUSAGE_WRITEONLY, D3DFVF_CUSTOMVERTEX,
    D3DPOOL_DEFAULT, FD3DVB, nil);
  CreateTexture(C_WIDTH_TEXTURE_DIB16, C_HEIGHT_TEXTURE_DIB16, 0, 0,
    D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, FD3DIB16, nil);
  FD3DDevice.GetBackBuffer(0, 0, D3DBACKBUFFER_TYPE_MONO, FID3DSurface);
end;

procedure CleanUp;
begin
  if Assigned(FID3DXFont) then
  begin
    FID3DXFont._Release;
    FID3DXFont := nil;
  end;
  if Assigned(FD3DIB16) then
  begin
    FD3DIB16._Release;
    FD3DIB16 := nil;
  end;
  if Assigned(FD3DVB) then
  begin
    FD3DVB._Release;
    FD3DVB := nil;
  end;
  if Assigned(FID3DSurface) then
  begin
    FID3DSurface._Release;
    FID3DSurface := nil;
  end;
end;

Obj := nil;

procedure Cleanup;
begin
  if Assigned (FID3DXFont) then begin
    try
      FID3DXFont._Release;
      FID3DXFont := nil;
    except
    end;
  end;
  if Assigned (FD3DIB16) then begin
    try
      FD3DIB16._Release;
      FD3DIB16 := nil;
    except
    end;
  end;
  if Assigned (FD3DIB32) then begin
    try
      FD3DIB32._Release;
      FD3DIB32 := nil;
    except
    end;
  end;
  if Assigned (FD3DIB64) then begin
    try
      FD3DIB64._Release;
      FD3DIB64 := nil;
    except
    end;
  end;
  if Assigned (FD3DVB) then begin
    FD3DVB._Release;
    FD3DVB := nil;
  end;
  if Assigned (FID3DSurface) then begin
    FID3DSurface._Release;
    FID3DSurface := nil;
  end;
end;

function DestroyDevice : boolean;
begin
  if Assigned (FID3DXFont) then begin
    try
//       FD3DDevice._Release;
      FFont.Free;
      FID3DXFont:=nil;
    except
    end;
  end;
  if Assigned (FD3DDevice) then begin
    try
//       FD3DDevice._Release;
      FD3DDevice:=nil;
    except
    end;
  end;
  if Assigned (FD3D) then begin
    try
//      FD3D._Release;
      FD3D := nil;
    except
    end;
  end;
  Result:=true;
end;