- procedure TForm1.FormCreate(Sender: TObject);
 - begin
 - glClear (GL_COLOR_BUFFER_BIT OR GL_DEPHT_BUFFER_BIT);
 - glLoadIdentity;
 - gltranslatef(-1.5, 0.0,-6.0);
 - glBegin(GL_TRIANGLES);
 - glVertex3f(-1.0,-1.0, 0.0);
 - glVertex3f( 0.0, 1.0, 0.0);
 - glVertex3f( 1.0,-1.0, 0.0);
 - glEnd();
 - end;
 

