Как растянуть текстуру на всю форму(прямоугольник)?(OpenGl)

[peredozer]

Загружаю текстуру на форму(то есть на GL_QUADS),а получается что она отображается на четырех прямоугольниках(повторяется).Как сделать что бы не повторялась?(размер текстуры 660*602.bmp).Загрузка текстуры с помощью модуля Textures.

FormPaint:

var ps:TpaintStruct;
      begin
        BeginPaint(Handle,ps); 
          glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT) ;
          glEnable(GL_DEPTH_TEST);
          glPushMatrix;
            GLENABLE(GL_TEXTURE_2D);
            LoadTexture('GetMap.bmp',Texture,false);
            glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
            glTexParameterI(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
            glBegin(GL_QUADS);
              glTexCoord2f(-1,-1);
              glVertex2f(-3,-3);

              glTexCoord2f(-1,1);
              glVertex2f(-3,3);

              glTexCoord2f(1,1);
              glVertex2f(3,3);

              glTexCoord2f(1,-1);
              glVertex2f(3,-3);
            glEnd;

            glDisable(GL_TEXTURE_2D);
          glPopMatrix;
          glDisable(GL_DEPTH_TEST);
          glFlush();
          SwapBuffers(DC);
        EndPaint(Handle,ps);
end;

FormCreate

 InitOpenGL('C:\Windows\System32\OpenGL32.dll','C:\Windows\System32\GLU32.dll');
    DC:=GetDC(Handle); 
    PixelFormat;
    hrc:=wglCreateContext(DC);
    wglMakeCurrent(DC,hrc);

PixelFormat:

var nPixelFormat:Integer;
    pfd:TpixelFormatDescriptor;
    begin
      FillChar(pfd,Sizeof(pfd),0);
        with pfd do
          begin
            nSize:=Sizeof(pfd);
            nVersion:=1;
         dwFlags:=PFD_DOUBLEBUFFER+PFD_SUPPORT_OPENGL+PFD_DRAW_TO_WINDOW; 
            iPixelType:=PFD_TYPE_RGBA;
            cColorBits:=24;
            cAlphaBits:=64;
            cAccumBits:=64;
            cDepthBits:=32;
            cStencilBits:=64;
            iLayerType:=PFD_MAIN_PLANE;
          end;
          nPixelFormat:=ChoosePixelFormat(DC,@pfd);
          if  nPixelFormat<>0 then
            SetPixelFormat(DC,nPixelFormat,@pfd); 
    end;

FormResize

begin
glMatrixMode(GL_PROJECTION_MATRIX);
glLoadIdentity;
if width <= height then
      glOrtho(-2,2,-2*height/width,2*height/width,-10.0,10.0) 

    else

      glOrtho(-2*width/height,2*width/height,-2,2,-10.0,10.0);

      glViewport(0,0,width,height);
end;

[eoln]

glTexCoord2f - параметры должны быть в пределах [0..1]

            glBegin(GL_QUADS);
              glTexCoord2f(0,0);
              glVertex2f(-3,-3);

              glTexCoord2f(0,1);
              glVertex2f(-3,3);

              glTexCoord2f(1,1);
              glVertex2f(3,3);

              glTexCoord2f(1,0);
              glVertex2f(3,-3);
            glEnd;

[peredozer]

Спасибо большое