ARGB でも ABGR でも正しい色を返す

GetColor.pas

// ARGB を ABGR に変換
// IsRev が True の時 ABGR（PixelFormat が pfA8B8G8R8）
function GetColor(const iColor: TAlphaColor): TAlphaColor;
{$IFDEF CPUX86}
asm
  cmp byte ptr IsRev, 0
  jz @@exit
  rol eax, 8
  bswap eax
  @@exit:
end;
{$ELSE}
begin
  if (IsRev) then
    Result := RGBtoBGR(iColor) // System.UIConst に定義
  else
    Result := iColor;
end;
{$ENDIF}