Newton Terrain Physics

[M109uk]

I have put in debug rendering, and it is correct, exactly the same as the terrain im rendering...

Heres the app to show whats wrong, the debug lines on on automaticlly.
www.pulse-soft.oneuk.com/downloads/mt.zip

The modified code:

procedure TMTFloor.CreateCollisionTree;
var
  Face: Array [0..3] Of Geometry.TVector3f;
  M: Geometry.TMatrix4f;
  Min,Max: Geometry.TVector3f;
  X,Z,x1,z1,x1t,z1t,xz,x1z,xz1,x1z1: Integer;
  xt,zt: Double;
begin
  nCollTree := NewtonCreateTreeCollision(nWorld, Nil);
  NewtonTreeCollisionBeginBuild(nCollTree);

  For X := 0 To MAP_SIZE Do
  Begin
    For Z := 0 To MAP_SIZE Do
    Begin
      xz := floorIndex(X, Z);
      x1z := floorIndex(X+1, Z);
      xz1 := floorIndex(X, Z+1);
      x1z1 := floorIndex(X+1, Z+1);

      Face[0] := Vector3fMake(X*lBlock,     hf[xz],   Z*lBlock);
      Face[1] := Vector3fMake((X+1)*lBlock, hf[x1z],  Z*lBlock);
      Face[2] := Vector3fMake((X+1)*lBlock, hf[x1z1], (Z+1)*lBlock);
      Face[3] := Vector3fMake(X*lBlock,     hf[xz1],  (Z+1)*lBlock);

      NewtonTreeCollisionAddFace(nCollTree, 4, @Face[0], SizeOf(TVector3f), 1);
    End;
  End;

  NewtonTreeCollisionEndBuild(nCollTree, 0);
  nBody := NewtonCreateBody(nWorld, nCollTree);

  tmpM := IdentityHmgMatrix;
  NewtonBodySetMatrix(nBody, @M[0,0]);
  NewtonCollisionCalculateAABB(nCollTree, @M[0,0], @Min[0], @Max[0]);
  NewtonSetWorldSize(nWorld, @Min[0], @Max[0]);
  NewtonReleaseCollision(nWorld, nCollTree);
end;

Many thanks..