procedure TForm1.FormCreate(Sender: TObject);
begin
  //creation, setting standard coordinates and colors
  Scene  := TxorDXScene.Create(Handle);
  Camera := TxorDXCamera.Create(Scene);
  Rect   := TxorDXRect.Create(Scene, 30, 15, 4, 2);
  //start
  Scene.CreateBuffers;
  Camera.SetStandard;
  Camera.Activate;
  Scene.StartLooping(Draw); //loop drawing routine
end;

//repeated drawing routine
procedure TForm1.Draw(Sender: TObject);
begin
  Scene.Clear;
  Rect.Insert;
  Rect.RotateX(-0.01);
  Rect.Draw;
end;