Well

I removed the

[pascal]
FTexture.GenerateMipSubLevels;
[/pascal]

and it now works

So the next thing is to get the MipMapping working correctly