Z-буффер, Как им пользоваться? Опции

[XaMMaX]

Вот надо отрисовать куб и что бы он отображался правильно тоесть задние части не видны =) Но не знаю как пользоваться z-буффером помогите пожалуйста!

[XaMMaX]

Блин не помогает

min:=1;

repeat

for i1:=1 to i-1 do
 begin
  sum1:=modelz1[min]+modelz2[min]+modelz3[min]+modelz4[min];
  sum2:=modelz1[i+1]+modelz2[i+1]+modelz3[i+1]+modelz4[i+1];
  if sum1<sum2 then
   begin
    buf1:=modelz1[i+1];
    buf2:=modelz2[i+1];
    buf3:=modelz3[i+1];
    buf4:=modelz4[i+1];
    modelz1[i+1]:=modelz1[min];
    modelz2[i+1]:=modelz2[min];
    modelz3[i+1]:=modelz3[min];
    modelz4[i+1]:=modelz4[min];
    modelz1[min]:=buf1;
    modelz2[min]:=buf2;
    modelz3[min]:=buf3;
    modelz4[min]:=buf4;
 
    buf1:=modelx1[i+1];
    buf2:=modelx2[i+1];
    buf3:=modelx3[i+1];
    buf4:=modelx4[i+1];
    modelx1[i+1]:=modelx1[min];
    modelx2[i+1]:=modelx2[min];
    modelx3[i+1]:=modelx3[min];
    modelx4[i+1]:=modelx4[min]; 
    modelx1[min]:=buf1;
    modelx2[min]:=buf2;
    modelx3[min]:=buf3;
    modelx4[min]:=buf4;

    buf1:=modely1[i+1];
    buf2:=modely2[i+1];
    buf3:=modely3[i+1];
    buf4:=modely4[i+1];
    modely1[i+1]:=modely1[min];
    modely2[i+1]:=modely2[min];
    modely3[i+1]:=modely3[min];
    modely4[i+1]:=modely4[min];
    modely1[min]:=buf1;
    modely2[min]:=buf2;
    modely3[min]:=buf3;
    modely4[min]:=buf4;
    min:=i+1;
   end;
 end;

Чё то мне кажется что условия никогда не выполняется, но почему? Плизз понедельник уже близиться, а ещё не готово!!