Terrain rendering?

procedure DrawTerrain();

procedure SetColor(Height: GLfloat);
var
  X : GLfloat;
begin
  X := 256/10/100*Height+0.2;
  glColor3f(X,X,X);
end;

var
  X : Integer;
  Z : Integer;
begin
  for X := 0 to MapSize-2 do
  begin
    glBegin(GL_TRIANGLE_STRIP);
    for Z := 0 to MapSize-1 do
    begin
        glTexCoord2f(X/MapSize,Z/MapSize);
        SetColor(HeightMap[ind(X,Z)]);
         glVertex3f(X, HeightMap[ind(X,Z)], Z);
        glTexCoord2f(X/MapSize+1.0/MapSize,Z/MapSize);
        SetColor(HeightMap[ind(X+1,Z)]);
         glVertex3f(X+1, HeightMap[ind(X+1,Z)], Z);
    end;
    glEnd();
  end;
end;