Ao usar um TBitmap de 32 bits, mudei do Canvas.Pixels para o ScanLine.

Em seguida, defino o valor como Vermelho, apenas para descobrir que ele foi exibido em azul.

Alguma idéia do porquê?

Aqui está um trecho de código:

procedure TForm1.FormPaint(Sender: TObject);
var
  varBitmap: TBitmap;
  pLock: PIntegerArray;
  iColor: integer;
begin
  varBitmap := TBitmap.Create;
  varBitmap.PixelFormat := pf32bit;
  varBitmap.Width := 800;
  varBitmap.Height := 600;

  // Set Pixels to Red
  varBitmap.Canvas.Pixels[0, 0] := $0000FF;

  // Shows $FF0000 (blue)
  pLock := varBitmap.ScanLine[0];
  iColor := pLock[0];
  ShowMessageFmt('%x', [iColor]);

  // Set ScanLine to Red
  pLock[0] := $0000FF;

  // Displays a blue pixel
  Canvas.Draw(0, 0, varBitmap);
end;

Parece que de alguma forma o TColor não é o mesmo que está na memória, mas isso não faz sentido.

Todas as sugestões são bem-vindas. ;)