распознать цветность

procedure TForm1.Button1Click(Sender: TObject);
var
  scan: pByteArray;
  x,y: integer;
  gray, rgb: boolean;
  png_pal: TChunkPLTE;
  bmp_pal: array of TPaletteEntry;
begin
  if OpenPictureDialog1.Execute then begin
    gray:=false; rgb:=false;
    with TPicture.Create do begin
      LoadFromFile(OpenPictureDialog1.FileName);
      if Graphic is TJpegImage then begin
        gray:=TJpegImage(Graphic).Grayscale;
        rgb:=not gray;
      end;
      if Graphic is TPNGObject then begin
        with TPNGObject(Graphic) do begin
          gray:=Header.ColorType in [COLOR_GRAYSCALE, COLOR_GRAYSCALEALPHA];
          if not gray and (Header.ColorType=COLOR_PALETTE) then begin
            png_pal:=Chunks.ItemFromClass(TChunkPLTE) as TChunkPLTE;
            x:=0; gray:=true;
            repeat
              with png_pal.Item[x] do gray:=(rgbBlue=rgbGreen) and (rgbBlue=rgbRed);
              inc(x);
            until (x>=png_pal.Count) or not gray;
          end else rgb:=true;
        end;
      end;
      if Graphic is TBitmap then begin
        with TBitmap(Graphic) do begin
          case PixelFormat of
            pf1bit: y:=2;
            pf4bit: y:=16;
            pf8bit: y:=256;
            else y:=-1;
          end;
          if y>0 then begin
            SetLength(bmp_pal, y*SizeOf(TPaletteEntry));
            GetPaletteEntries(Palette, 0, y, bmp_pal[0]);
            x:=0; gray:=true;
            repeat
              with bmp_pal[x] do gray:=(peBlue=peGreen) and (peBlue=peRed);
              inc(x);
            until (x>=y) or not gray;
          end else rgb:=true;
        end;
      end;
      if rgb then begin
        with TBitmap.Create do begin
          Assign(Graphic);
          PixelFormat:=pf24bit;
          y:=0; gray:=true;
          repeat
            x:=0; scan:=ScanLine[y];
            repeat
              gray:=(scan[x]=scan[x+1]) and (scan[x]=scan[x+2]);
              inc(x,3);
            until (x>=Width*3) or not gray;
            inc(y);
          until (y>=Height) or not gray;
          Free;
        end;
      end;
      Free;
    end;
    if gray then ShowMessage('gray') else ShowMessage('color');
  end;
end;

function IsGray(filename: PAnsiChar): boolean;
function bswap(x: dword): dword;assembler;register;
asm
  bswap eax
end;
var
  f,fm,chunksize: dword;
  map:            pointer;
begin
    f  :=CreateFileA(filename,GENERIC_READ,0,0,OPEN_EXISTING,0,0);
    fm :=CreateFileMapping(f,0,PAGE_READONLY,0,0,0);
    map:=MapViewOfFile(fm,FILE_MAP_READ,0,0,0);
    if int64(map^)=$0A1A0A0D474E5089 then //PNG
      repeat
        chunksize:=bswap(pdword(dword(map)+8)^);
        if pdword(dword(map)+12)^=$52444849 then //IHDR
        begin
          result:=pbyte(dword(map)+25)^=0;
          break;
        end;
        inc(dword(map),chunksize+12);
      until false
    else if word(map^)=$D8FF then //JPG
      repeat
        chunksize:=swap(pword(dword(map)+4)^);
        if pword(dword(map)+2)^=$DAFF then //SOS
        begin
          result:=pbyte(dword(map)+6)^=1;
          break;
        end;
        inc(dword(map),chunksize+2);
      until false;
    UnmapViewOfFile(map);
    CloseHandle(fm);
    CloseHandle(f);
end;