procedure FillLongword(var X; Count: Integer; Value: Longword);
asm
 PUSH    EDI
 MOV     EDI,EAX  // Point EDI to destination
 MOV     EAX,ECX
 MOV     ECX,EDX
 TEST    ECX,ECX
 JS      @exit
 REP     STOSD    // Fill count dwords
@exit:
 POP     EDI
end;

Type
 PArrColorQ = ^TArrColorQ;
 TArrColorQ = array [0..0] of LongWord;
Var
 Bits : PArrColorQ;
begin
// В Bits загружен 24-х битный растр.

 FillLongword(FBits[0],  FW * FH, clRed); // *
 // ZeroMemory(FBits, FW * FH * 4);       // Корректно заполняет чёрным.

End;

pc:=Pointer(Bmp.Bits);
for i:=0 to Bmp.Width-1 do begin
 pc^:=PFColor(@c)^; Inc(pc);
end;
for i:=1 to Bmp.AbsHeight-1 do
 Move(Bmp.Bits^,Bmp.Scanlines[i]^,Bmp.BWidth-Bmp.Gap);

Type
 PFColor =^TFColor;
 TFColor = packed record
   b,g,r: Byte;
 end;

 PArrColorQ = ^TArrColorQ;
 TArrColorQ = array [BYTE] of TColor;

 PLines = ^TLines;
 TLines = array[BYTE]of Pointer;

Var
 FBits: PArrColorQ;
 Scan : PLines;
 FW, FH: LongWord;
 BWidth, Gap: LongInt;

 FDC: LongWord;
 FHB: LongWord;

Function XLoadBMP(const FileName: string): boolean;
Var
 BMP : Bitmap;
 x, i: LongInt;
begin
 Result:= False;

 FHB:= LoadImage(0, PCHAR(FileName), 0, 0, 0, LR_LOADFROMFILE or LR_CREATEDIBSECTION);
 If (FHB = 0) then Exit;

 GetObject(FHB,  SizeoF(BMP), @BMP);
 With BMP do
 begin
   If (bmBitsPixel <> 24) then Exit;
   FW:= bmWidth;
   FH:= bmHeight;

   GetMem(FBits, FW * FH * 3);
   FBits := bmBits;
   Result:= (FBits <> nil);
 end;

 FDC:= CreateCompatibleDC(0);
 DeleteObject(SelectObject(FDC, FHB));

 BWidth:=(((FW * 24) + 31) and - 32) shr 3;
 Gap   := BWidth - ((FW shl 1) + FW);

 ReallocMem(Scan, FH shl 2);
 x:= Integer(FBits);
 for i:= 0 to FH-1 do
 begin
   Scan[i]:= Ptr(x);
   Inc(x, BWidth);
 end;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
 If not XLoadBMP('C:\Texture.bmp') then Close;    (* Texture - 256 x 256 *)
End;

Procedure Clear24(Color: TColor);
Var
 pc: PFColor;
 i: LongWord;
begin
 pc:=Pointer(FBits);
 for i:=0 to FW-1 do
 begin
   pc^:=PFColor(@Color)^;
   Inc(pc);
 end;
 for i:=1 to FH-1 do
   Move(FBits^, Scan[i], BWidth - Gap);
End;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 // ZeroMemory(FBits, FW * FH * 3);

// Clear24(clBlue);

 BitBlt(Form1.Canvas.Handle, X, Y, FW, FH, FDC, 0, 0, SRCCOPY);
End;

  B.Canvas...                // Рисуем.
   B.ScanLine...              // Обрабатываем пиксели.

   B.PixelFormat:= pfDevice;
   B.Canvas.Draw...           // Шустрый блиттинг.
   B.PixelFormat:= pf24bit;   // Восстанавливаемся.