[M.A.D.M.A.N.]

Ну в общем как обычно пришлось все делать самому, вот решение

Код:

  For x:=1 to 20 do
    for y:=1 to 20 do
      begin
        MoveToXYZ(x-1,y,Vals[X-1,Y]);
        LineToXYZ(x,y,vals[x,y],clGray);
        MoveToXYZ(x,y-1,Vals[x,y-1]);
        LineToXYZ(x,y,vals[x,y],clGray);
      end;