var
 Pic: TBitmap;
 pix: PByteArray;
 i, j: integer;
begin
 Pic := TBitmap.Create;
 Pic.PixelFormat := pf24bit;
 Pic.Width := 100;
 Pic.Height := 100;
 for i := 0 to Pic.Height - 1 do begin
   pix := Pic.ScanLine[i];
   for j := 0 to Pic.Width - 1 do begin
     pix[j * 3] := 0;
     pix[j * 3 + 1] := 0;
     pix[j * 3 + 2] := 255;
   end;
 end;
 Canvas.Draw(0, 0, Pic);
end;

var
Pic: TBitmap;
pix: PByteArray;
LL,WW,i, j: integer;
begin
Pic := TBitmap.Create;
Pic.PixelFormat := pf24bit;
Pic.Width := 100;
Pic.Height := 100;
p:=Pic.ScanLine[0]; // Получаем базу эканомим на вызове.
LL:=Pic.ScanLine[1]-Pic.ScanLine[0]; // Длина линии. Из-за выравнивания отличается от Width*3, а также имеет противоположный знак из-за обратного порядка строк.
WW:=Pic.Width*3; // Не умеет дельфи хорошо оптимизировать поможем ему.
//Цикл заменяем на while так можем экономить на переменной и регистре.
i:=0;
while   i<Pic.Height do
 begin
 j:=0;
 while j< WW  do begin
   // while позволяет еще убрать умножение, а также мы избавились от части лишних сложений
    pix[j] := 0;
    Inc(j);    
    pix[j] := 0;
    Inc(j);    
    pix[j] := 255;
    Inc(j);          
  end;
 inc(pix,LL)
end;
Canvas.Draw(0, 0, Pic);
end;

var
 Pic: TBitmap;
 Pix: PByteArray;
 LL, WW, i, j: integer;
begin
 Pic := TBitmap.Create;
 Pic.PixelFormat := pf24bit;
 Pic.Width := 100;
 Pic.Height := 100;

 Pix := Pic.ScanLine[0];
 LL := Cardinal(Pic.ScanLine[1]) - Cardinal(Pic.ScanLine[0]);
 WW := Pic.Width * 3;

 i := 0;
 while i < Pic.Height do begin
   j := 0;
   while j < WW do begin
     Pix[j] := 0;    Inc(j);
     Pix[j] := 0;    Inc(j);
     Pix[j] := 255;  Inc(j);
   end;
   Inc(Cardinal(Pix), LL);
   Inc(i);
 end;
 Canvas.Draw(0, 0, Pic);
end;