[AlexSku]

Неправильно использован ps (перепутаны структура TD3DPRESENT_PARAMETERS и адрес PD3DPRESENT_PARAMETERS).

Код:

var
  ps : TD3DPRESENT_PARAMETERS;
  dm : TD3DDISPLAYMODE;
  hRet : HRESULT;
begin
  DirectX := Direct3DCreate9(D3D_SDK_VERSION);
  DirectX.GetAdapterDisplayMode(D3DADAPTER_DEFAULT, dm);


  ZeroMemory(@ps, SizeOf(ps));              // windows.pas
  //  FillChar(ps, SizeOf(ps), 0);          // system.pas
  ps.Windowed := true;
  ps.SwapEffect := D3DSWAPEFFECT_DISCARD;
  ps.BackBufferFormat := dm.Format;
  HRet := DirectX.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, Handle, D3DCREATE_SOFTWARE_VERTEXPROCESSING, @ps, Device);