const CubeMapOptions : array [1..6] of Cardinal =                 
                                                   (GL_TEXTURE_CUBE_MAP_POSITIVE_X,GL_TEXTURE_CUBE_MAP_NEGATIVE_X,GL_TEXTURE_CUBE_MAP_POSITIVE_Y,
                                                   GL_TEXTURE_CUBE_MAP_NEGATIVE_Y,GL_TEXTURE_CUBE_MAP_POSITIVE_Z,GL_TEXTURE_CUBE_MAP_NEGATIVE_Z);

         ...
         ImageStream := TMemoryStream.Create;
         aCopyCube.SaveToStream(ImageStream); //aCopyCube beinhaltet dabei die Textur
         ImageStream.Seek(0,soFromBeginning);
         FcubeMap[i].LoadFromStream(ImageStream);
         FreeAndNil(ImageStream);
         FCubeMap[i].GenerateCubeMap(CubeMapOptions[j+1]); 
         FreeAndNil(aCopyCube);