thanks for reply

the quad is missing :cry:
ill try since 12pm without success

here my initial code

[pascal]
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
InitOpenGL;
DC := GetDC(Handle);
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(DC, RC);
SetupPixelFormat;
Setup;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DeactivateRenderingContext;
wglDeleteContext(RC);
ReleaseDC(Handle, DC);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
if HandleAllocated then
begin
glViewport(0, 0, ClientWidth, ClientHeight);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45, ClientWidth/ClientHeight, 0.1, 1000);
end;
end;

procedure TForm1.SetupPixelFormat;
begin
glEnable(GL_TEXTURE_2D);
glEnable(GL_DEPTH_TEST);
end;
[/pascal]