glDeleteTextures gibt Speicher nicht frei

[EWeiss]

trotz alledem das ich die texturen lösche wird der Speicher nicht freigegeben

Delphi-Quellcode:

    if assigned(quadTexture) then
    begin
      for I := 0 to QuadCount - 1 do
      begin
       glDeleteTextures(i, @quadTexture);
       quadTexture[i] := 0;
      end;
    end;

    glDeleteTextures(1, @BackTexture);     // Texture für Hintergrund
    glDeleteTextures(1, @GradientTex);     // Texture für DiskSpectrum
    glDeleteTextures(1, @MeterTexture);    // Texture für VUMeter
    glDeleteTextures(1, @PeaksTexture);    // Texture für Peaks
    glDeleteTextures(1, @SpectrumTexture); // Texture für Spectrum
    glDeleteTextures(1, @BarTexture);      // Texture für Slider
    glDeleteTextures(1, @PrivateTexture);  // Texture für CDLabel

woran kann es liegen ?
Wüßte jetzt nicht was da falsch ist.

gruss Emil