fdfdfdfdfdfdfdfdfdfdfd

  len := Length( Face[integer(FaceType)][Line-1] );
  SetLength( Face[integer(FaceType)][Line-1], Len+1 );
  with Face[integer(FaceType)][Line-1][Len] do
  begin
    U := TexWidth*(Term - Start);
    V := TexWidth;
    V1 := Start;
    V2 := Term;
    V3 := 1;
    V4 := 1;
    TextureIndex := ObjectType;
  end;
end;