function LoadPNGTexture(Filename: String; var Texture : GLuint; LoadFromResource : Boolean) : Boolean;
var
  //pData : Pointer;
  PNGImage : TPNGGraphic;
  BMP : TBitmap;
  Data : Array of LongWord;
  W, Width : Integer;
  H, Height : Integer;
  Line : ^LongWord;
  C : LongWord;
begin
  PNGImage := TPNGGraphic.Create;
  try
      PNGimage.LoadFromFile(Filename);
    except
      MessageBox(0, PChar('Couldn''t load PNG - "'+ Filename +'"'), PChar('BMP Unit'), MB_OK);
      Exit;
    end;
  BMP := TBitmap.Create;
  BMP.pixelformat:=pf32bit;
  BMP.width:= PNGImage.Width;
  BMP.height:= PNGImage.Height;
  BMP.canvas.draw(0,0,PNGImage);

  Width :=BMP.Width;
  Height :=BMP.Height;
  SetLength(Data, Width*Height);
  For H:=0 to Height-1 do
  Begin
    Line :=BMP.scanline[Height-H-1];   // flip JPEG
    For W:=0 to Width-1 do
    Begin
      c:=Line^ and $FFFFFF; // Need to do a color swap
      Data[W+(H*Width)] :=(((c and $FF) shl 16)+(c shr 16)+(c and $FF00)) or $FF000000;  // 4 channel.
      inc(line);
    End;
  End;

  BMP.Free;
  PNGImage.Free;

  Texture:=CreateTexture(Width, Height, GL_RGBA, addr(Data[0]));
  Result:= true;
end;

if Key = VK_UP then
    begin
      if WherePointer <=0 then
        WherePointer := 1;
      if FileExists('pic'+WherePointer+'.png') then
        LoadTexture('pic'+WherePointer+'.png'',texCube,False)
      else
        LoadTexture(nopicture.png',TexCube,False)
      WherePointer := WherePointer - 1;
    end;
;