Creates D3D texture from image in stream in format supported by Imaging.

function LoadD3DTextureFromStream(Stream: TStream; 
                                  Device: IDirect3DDevice9; 
                                  var Texture: IDirect3DTexture9; 
                                  CreatedWidth: PLongInt = nil; 
                                  CreatedHeight: PLongInt = nil): Boolean;

ImagingDirect3D9 (at line 82)

You can use CreatedWidth and Height parameters to query dimensions of created textures (it could differ from dimensions of source image).