Куб в OpenGL

Задача такова: в Delphi необходимо написать процедуру рисующую куб. При этом куб должен быть тессарирован, т.е. состоять из нескольких полигонов, число которых задается пользователем. Данная процедра нужня для того чтобы к такому кубу можно было применить освещение.