Use DirectOpenGL command

[M.a.]

Hi,
How can I use opengl commands by GLDirectOpenGL correctly?
I know I must use OnRender event but my commands not work completely,
for example for display a triangle with three colors at the vertices I use this code :

procedure TForm1.GLDirectOpenGL1Render(Sender: TObject;
  var rci: TGLRenderContextInfo);
begin
  glBegin(GL_TRIANGLES);
    glColor3f(1, 0, 0);
    glVertex3f( 0.0, 1.0, 0.0);
    glColor3f(0, 1, 0);
    glVertex3f(-1.0,-1.0, 0.0);
    glColor3f(0, 0, 1);
    glVertex3f( 1.0,-1.0, 0.0);
  glEnd;
end;

But I have a triangle with one color (Green).
Where is my mistake?

[Jerson Seling]

Try this:

procedure TForm1.GLDirectOpenGL1Render(Sender: TObject;
  var rci: TGLRenderContextInfo);
begin
  //rci.GLStates.Disable(stCullFace);
  rci.GLStates.Enable(stColorMaterial); //add use GLState
  rci.GLStates.Disable(stLighting);
  glBegin(GL_TRIANGLES);
    // glNormal3f(0,0,-1);
    glColor3f(1, 0, 0);     glVertex3f(0, 1, 0);
    glColor3f(0, 1, 0);     glVertex3f(-1, -1, 0);
    glColor3f(0, 0, 1);     glVertex3f(1, -1, 0);
  glEnd;
end;

GLGraph .pas TGLHeightField.BuildList may help you with this.

Your triangle is green probably because you have another object in scene that is green and its state configuration is passing to the DirectOpenGL render. You need to configure this state before draw something.