lortet virker sq ikke

Når jeg indtaster følgende:

procedure TForm1.FormPaint(Sender: TObject);
begin
glClearColor(0.0,0.0,0.0,0.0);
glClear(gl_Color_Buffer_Bit);

glBegin(gl_Triangles);
glVertex3f(-0.5,-0.5,-5.0);
glVertex3f(-0.5,+0.5,-5.0);
glVertex3f(+0.5,+0.5,-5.0);
glEnd;



end;

så kan den sagtens kompilere, men der sker ikke noget på skærmen...
Hvad er der i vejen, og hvordan får jeg den trekant til at komme frem som der står i tutorial'en der skulle gøre?
Ja, jeg har tilføjet opengl i min Uses.