function TTexture.Load2(const FileName: string; Custom: boolean = False): boolean;
var
 P    : PRGBA; // TRGBA = record R, G, B, A: byte; end;
 pScr : Pointer;
 X, Y : LongWord;
 W, H : LongWord;
 Format: TD3DFormat;
 LRect: TD3DLockedRect;

 function PitchDds(Bpp: LongWord): Pointer;
 begin
   LONGINT(Result):= LONGINT(pScr) + ((W + Bpp + 7) div 8);
 end;

begin
 If Custom then
 begin
   Result:= False;

   If LoadDds(FileName, W, H, pScr, Format) then
   try
     If not CreateTexture(W, H, Format) then Exit;

     If DXCheck(FHandle.LockRect(0, LRect, nil, 0)) then
     try
       For Y:= 0 to H - 1 do
       begin
         P:= PitchDds(32);
         For X:= 0 to W - 1 do
         with P^ do
         begin
           PDWORD(DWORD(LRect.pBits) + Y * LRect.Pitch + X * 4)^:= D3DCOLOR_XRGB(B, G, R);
           Inc(P);
         end;
       end;
     finally
       Result:= DXCheck(FHandle.UnlockRect(0));
     end;
   finally
     FreeMem(pScr);
   end;
 end else
   Result:= DXCheck(D3DXCreateTextureFromFile(Device.GetHandle, XPChar(FileName), FHandle));

 If Result
 then GetInfo;
end;

function LoadDds(const FileName: XString; var W, H: LongWord; var Data: Pointer; var Format: TD3DFormat): boolean;
var
 DDS : TDDS;              // Хидер dds. См MSDN
 Size: LongWord;
begin
 Result:= False;

 with TMyStream.Create do // Мой поток.
 try
   If Init(FileName) then // Открываем.
   begin
     ZeroMemory(@DDS, SizeOf(DDS));
     Read(DDS, SizeOf(DDS));
     with DDS do
     begin
       LogAssert(dwMagic = MAKEFOURCC('D', 'D', 'S', ' '), FFormat('No dds-file: \"%s\".',  [FileName]));
       LogAssert(not BitCheck(dwFlags, DDSD_MIPMAPCOUNT),  FFormat('Found mipmaps. (Count: %d)', [dwMipMapCount]));

       with ddsPixelFormat do
       If ((not BitCheck(dwPFFlags, DDPF_FOURCC)) and   // Не сжатая.
           (dwRGBBitCount = 32) and                     // Проверяем на D3DFMT_A8R8G8B8.
           (dwRBitMask    = $00FF0000)  and
           (dwGBitMask    = $0000FF00)  and
           (dwBBitMask    = $000000FF)  and
           (dwABitMask    = $FF000000)) then
       begin
         W     := dwWidth;
         H     := dwHeight;
         Format:= D3DFMT_A8R8G8B8;

         LogPrint('Check');                             // Правильно ли загрузили?

         If not BitCheck(dwFlags, DDSD_PITCH)           // Если флаг не указан, то сами считаем питч.
         then dwPOLS:= ((W + dwRGBBitCount + 7) div 8);

         Size:= dwPOLS * H;
         // Size:= W * H * 4;
         GetMem(Data, Size);
         Read(Data, Size);

         Result:= Assigned(Data);
       end;
     end;
   end;
 finally
   Free;
 end;
end;

function LoadDds(const FileName: XString; var W, H: LongWord; var Data: Pointer; var Format: TD3DFormat): boolean;
var
 DDS : TDDS;              // Хидер dds. См MSDN
 Size: LongWord;
begin
 Result:= False;

 with TMyStream.Create do // Мой поток.
 try
   If Init(FileName) then // Открываем.
   begin
     ZeroMemory(@DDS, SizeOf(DDS));
     Read(DDS, SizeOf(DDS));
     with DDS do
     begin
       LogAssert(dwMagic = MAKEFOURCC('D', 'D', 'S', ' '), FFormat('No dds-file: \"%s\".',  [FileName]));
       LogAssert(not BitCheck(dwFlags, DDSD_MIPMAPCOUNT),  FFormat('Found mipmaps. (Count: %d)', [dwMipMapCount]));

       with ddsPixelFormat do
       If ((not BitCheck(dwPFFlags, DDPF_FOURCC)) and   // Не сжатая.
           (dwRGBBitCount = 32)         and             // Проверяем на D3DFMT_A8R8G8B8.
           (dwRBitMask    = $00FF0000)  and
           (dwGBitMask    = $0000FF00)  and
           (dwBBitMask    = $000000FF)  and
           (dwABitMask    = $FF000000)) then
       begin
         W     := dwWidth;
         H     := dwHeight;
         Format:= D3DFMT_A8R8G8B8;

         LogPrint('Check');                             // Правильно ли загрузили?

         LogPrint('1) ' + IntToStr(dwPOLS));            // 1 и 3 совпадают.
         LogPrint('2) ' + IntToStr(((W + dwRGBBitCount + 7) div 8) * H));
         LogPrint('3) ' + IntToStr(W * H * 4));

         Size:= dwPOLS;
         // Size:= W * H * 4;
         GetMem(Data, Size);
         Read(Data, Size);

         Result:= Assigned(Data);
       end;
     end;
   end;
 finally
   Free;
 end;
end;

type
 TDDS = packed record
   dwMagic      : LongWord;
   dwSize       : LongWord;
   dwFlags      : LongWord;
   dwHeight     : LongWord;
   dwWidth      : LongWord;
   dwPOLS       : LongWord;
   dwDepth      : LongWord;
   dwMipMapCount: LongWord;
   dwReserved1  : array [0..10] of LongWord;
   ddsPixelFormat : packed record
     dwSize       : LongWord;
     dwPFFlags    : LongWord;
     dwFourCC     : LongWord;
     dwRGBBitCount: LongWord;
     dwRBitMask   : LongWord;
     dwGBitMask   : LongWord;
     dwBBitMask   : LongWord;
     dwABitMask   : LongWord;
   end;
   dwCaps       : LongWord;
   dwCaps2      : LongWord;
   dwCaps3      : LongWord;
   dwCaps4      : LongWord;
   dwReserved2  : LongWord;
 end;

const
 DDSD_CAPS        = $00000001;
 DDSD_HEIGHT      = $00000002;
 DDSD_WIDTH       = $00000004;
 DDSD_PITCH       = $00000008;
 DDSD_PIXELFORMAT = $00001000;
 DDSD_MIPMAPCOUNT = $00020000;
 DDSD_LINEARSIZE  = $00080000;

 DDPF_ALPHAPIXELS = $00000001;
 DDPF_ALPHA       = $00000002;
 DDPF_FOURCC      = $00000004;
 DDPF_RGB         = $00000040;
 DDPF_LUMINANCE   = $00020000;

 DDSCAPS_TEXTURE  = $00001000;

function TTexture.CreateTexture(W, H: LongWord; Format: TD3DFormat): boolean;
begin
 Result:= False;

 If not Device.IsCaps(dcPow2) then         // Если карточка не держит POT-текстуры.
    If not IsPow2(W) or not IsPow2(H) then // Проверяем кратность текстуры.
    begin
      LogPrint(FFormat('NPOT texture. (%d x %d)', [W, H]));
      Exit;
    end;

 Result:= DXCheck(Device.GetHandle.CreateTexture(W, H, 1, 0, Format, D3DPOOL_MANAGED, FHandle, nil));
 If not Result
 then LogPrint(FFormat('No create texture. (%d x %d x %s)', [W, H, D3DFormatToStr(Format)]));
end;

If (dwPOLS = 0) then dwPOLS:= (W * dwRGBBitCount + 3) div 4 * 4;

Size:= dwPOLS * H;

procedure FillLockedRectWithImage(var Rect: TD3DLockedRect; W, H, Size: LongWord; Bits: Pointer; IsSpecial: boolean = False);
var
 I, LineBytes: LongInt;

begin
 LineBytes := W * 1 * 4; // GetStdPixelsSize = W * H * 4 (Для формата A8R8G8B8 размер так считается)

 if (not IsSpecial) and (LineBytes < Rect.Pitch) then
 begin
   for I := 0 to H - 1 do
     Move(PByteArray(Bits)[I * LineBytes], PByteArray(Rect.pBits)[I * Rect.Pitch], LineBytes);
 end
 else
   Move(Bits^, Rect.pBits^, Size);
end;

function TTexture.Load2(const FileName: string; Custom: boolean = False): boolean;
var
 pScr  : Pointer;
 X, Y  : LongWord;
 W, H  : LongWord;
 Size  : LongWord;
 Format: TD3DFormat;
 LRect : TD3DLockedRect;
begin
 If Custom then
 begin
   Result:= False;

   If LoadDds2(FileName, W, H, pScr, Size) then
   try
     If not CreateTexture(W, H, D3DFMT_A8R8G8B8) then Exit;

     If DXCheck(FHandle.LockRect(0, LRect, nil, 0)) then
     try
       FillLockedRectWithImage(LRect, W, H, Size, pScr);
     finally
       Result:= DXCheck(FHandle.UnlockRect(0));
     end;
   finally
     FreeMem(pScr);
   end;
 end else
   Result:= DXCheck(D3DXCreateTextureFromFile(Device.GetHandle, XPChar(FileName), FHandle));

 If Result
 then GetInfo;
end;

(*
A8R8G8B8Info: TImageFormatInfo = (
   Format: ifA8R8G8B8;
   Name: 'A8R8G8B8';
   BytesPerPixel: 4;
   ChannelCount: 4;
   HasAlphaChannel: True;
   GetPixelsSize: GetStdPixelsSize;
   CheckDimensions: CheckStdDimensions;
   GetPixel32: GetPixel32ifA8R8G8B8;
   GetPixelFP: GetPixelFPifA8R8G8B8;
   SetPixel32: SetPixel32ifA8R8G8B8;
   SetPixelFP: SetPixelFPifA8R8G8B8);
*)

function GetDdsScanLine(Row, Bpp: LongWord): Pointer;
 begin
   // LONGINT(Result):= LONGINT(pScr) + (Row * (((W * Bpp + 3) div 4)) * 4); // Так говорит Вампир.
   LONGINT(Result):= LONGINT(pScr) + (Row * ((W + Bpp + 7) div 8));          // Так говорит MSDN.
 end;