Цвет пикселя scanline

DC:hdc;
inbmp: TBitmap;
pixel:cardinal;
r,g,b:byte;
x,y:integer;
p: pointer;
 
 
for x := 0 to inbmp.Height-1 do
  begin
    p:= inbmp.ScanLine[x];
    for y := 0 to inbmp.Width-1 do
    begin;
    Pixel:=PCardinal(Integer(p) + y*3)^;
    R:=GetBValue(p[y]);
    G:=GetGValue(p[y]);
    B:=GetRValue(p[y]);
        if RGB(R, G, B) = RGB(255,0,0) then

 if (R=255) and (G=0) and (B=0) then

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
type
TRGBTriple =  PACKED RECORD
  rgbtBlue : BYTE;
  rgbtGreen: BYTE;
  rgbtRed  : BYTE;
  end;
pRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = ARRAY[0..2100000] OF TRGBTriple;
pRGBTriple = ^TRGBTriple;
 
 
var
 
DC:hdc;
inbmp: TBitmap;
pixel:cardinal;
r,g,b:byte;
x,y:integer;
p: pRGBTripleArray;
 
begin
    DC:=GetDC(0);
    inbmp := TBitmap.Create;
    inbmp.PixelFormat:= pf24bit;
    inbmp.Width := screen.Width;
    inbmp.Height := screen.Height;
    bitblt(inbmp.Canvas.Handle, 0, 0, screen.Width, screen.Height, DC, 0, 0, SRCCOPY);
    inbmp.SaveToFile('c:\screen.bmp');
    ReleaseDC(0, DC);
    //inBmp.Free;
 
for x := 0 to inbmp.Height-1 do
  begin
    p:= inbmp.ScanLine[x];
    for y := 0 to inbmp.Width-1 do
    begin;
    if rgbtRed = 255 then
        begin
        showmessage ('123');
        break;
        end;
   end;
  if rgbtRed = 255 then  break;
  end;
 
end;
 
end.

for x := 0 to bmp.Height-1 do
  begin
    Row := pByteArray(bmp.Scanline[x]);
    for y := 0 to (bmp.Width div 1) - 1 do
  end;

A:=$FF  (1111 1111) 255
 
i:=5;  //проверим бит 5
 
if ( (a shr 8-i) and 1 ) = 1  //то 5-ый бит равен 1

function IsBitSet(Value: cardinal; BitNum : byte): boolean;
begin
  result:=((Value shr BitNum) and 1) = 1
end;
...
if IsBitSet(43691,1) then //установлен (равен 1)

 
for x := 0 to bmp.Height-1 do //строки BMP
  begin
    Row := pByteArray(bmp.Scanline[x]); // Строка байтов из строки X BMP
    for y := 0 to (bmp.Width div 8) - 1 do
       begin
       вот тут уже делаем через кейс и смотрим какой бит равен 1
       end;
  end;
 
ну и получаем координаты пикселя к примеру (x, (y-1)*8 + номер нашего бита)