DirectX. Где я ошибаюсь?

[_-Re@l-_]

Код во вложении(сюда не влез).
Всё вроде бы работает нормально, однако при переключении режима(из полноэкранного в оконный пропадает изображение). В чём проблема?

[ex.cluz]

А где D3DX9Sab.dll ?
Без него не пашет.

[_-Re@l-_]

Разумеется, он есть. Без него приложение вообще бы не запустилось бы.
А проблему уже нашёл.
В общем, она здесь:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) and (Key = VK_RETURN) then
  begin
    FWindowed:=not FWindowed;
    FreeD3D;
    InitD3D;
    PrepareVertices;
  end;
  If Key = VK_UP Then N:=1;
  If Key = VK_LEFT Then N:=2;
  If Key = VK_RIGHT Then N:=3;
  If Key = VK_DOWN Then N:=4;
end;

А нужно так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) and (Key = VK_RETURN) then
  begin
    FWindowed:=not FWindowed;
    FreeD3D;
    InitD3D;
    N:=1;
    PrepareVertices;
  end;
  If Key = VK_UP Then N:=1;
  If Key = VK_LEFT Then N:=2;
  If Key = VK_RIGHT Then N:=3;
  If Key = VK_DOWN Then N:=4;
end;

И тогда всё прекрасно работает.
Вообще, N - это переменная которая отвечает за тип вращения матрицы(ну это у меня так)
1 - вращение по оси Х
2 - вращение по оси Y
3 - вращение по оси Z
4 - вращение по осям X,Y,Z одновременно
Планирую ещё добавить значение 0 - то есть если N = 0 то просто остановить кубик висеть так, как он висит, только пока не могу придумать как это сделать.
О! Ура. Сделал. Если что, то код вращения кубика такой:

function TForm1.RenderScene(Side:Integer): HResult;
var
   WorldMatrix:  TD3DMatrix;
   WorldMatrixX: TD3DMatrix;
   WorldMatrixY: TD3DMatrix;
   WorldMatrixZ: TD3DMatrix;
begin
  Result := ClearDevice;
  if FAILED(Result) then EXIT;
  FD3DDevice.BeginScene;
  try
    FD3DDevice.SetStreamSource(0, FD3DVertexBuffer, 0, SizeOf(TCustomVertex));
    FD3DDevice.SetFVF(D3DFVF_CUSTOMVERTEX);
    inc(FRotAngle, 1);
    Case Side Of
    0: Begin //останавливаем кубик, т.е. не изменяем мировую матрицу
    FD3DDevice.SetIndices(FD3DIndexBuffer);
    FD3DDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST,0,0,36,0,12);
    End;
    1: Begin // вращаем кубик по оси Х, т.е. текущую мировую матрицу умножаем на WorldMatrixX
    D3DXMatrixRotationX(WorldMatrixX, GradToRad(FRotAngle));
    D3DXMatrixMultiply(WorldMatrix, WorldMatrixX, WorldMatrixX);
    FD3DDevice.SetTransform(D3DTS_WORLD, WorldMatrix);
    FD3DDevice.SetIndices(FD3DIndexBuffer);
    FD3DDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST, 0, 0, 36, 0, 12);
    End;
    2: Begin //вращаем кубик по оси Y, т.е. текущую мировую матрицу умножаем на WorldMatrixY
    D3DXMatrixRotationY(WorldMatrixY, GradToRad(FRotAngle));
    D3DXMatrixMultiply(WorldMatrix, WorldMatrixY,  WorldMatrixY);
    FD3DDevice.SetTransform(D3DTS_WORLD, WorldMatrix);
    FD3DDevice.SetIndices(FD3DIndexBuffer);
    FD3DDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST, 0, 0, 36, 0, 12);
    End;
    3: Begin //вращаем кубик по оси Z, т.е. текущую мировую матрицу умножаем на WorldMatrixZ
    D3DXMatrixRotationZ(WorldMatrixZ, GradToRad(FRotAngle));
    D3DXMatrixMultiply(WorldMatrix, WorldMatrixZ,  WorldMatrixZ);
    FD3DDevice.SetTransform(D3DTS_WORLD, WorldMatrix);
    FD3DDevice.SetIndices(FD3DIndexBuffer);
    FD3DDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST, 0, 0, 36, 0, 12);
    End;
    4: Begin //вращаем по всем осям, т.е. перемножаем все матрицы и записываем результат в WorldMatrix
    D3DXMatrixRotationX(WorldMatrixX,GradToRad(FRotAngle));
    D3DXMatrixRotationY(WorldMatrixY,GradToRad(FRotAngle));
    D3DXMatrixRotationZ(WorldMatrixZ,GradToRad(FRotAngle));
    D3DXMatrixMultiply(WorldMatrix,WorldMatrixX,WorldMatrixY);
    D3DXMatrixMultiply(WorldMatrix,WorldMatrix, WorldMatrixZ);
    FD3DDevice.SetTransform(D3DTS_WORLD,WorldMatriX);
    FD3DDevice.DrawIndexedPrimitive(D3DPT_TRIANGLELIST,0,0,36,0,12);
    End;
    End;
  finally
    FD3DDevice.EndScene;
  end;
  FD3DDevice.Present(NIL, NIL, 0, NIL);
end;