вопрос по if

var
  Form1: TForm1;
  Bitmap: TBitmap;
 
procedure TForm1.Button1Click(Sender: TObject);
type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;
var
  x, y: Integer;
  Dest: pRGB;
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadfromFile('1.bmp');
  Bitmap.PixelFormat := pf24Bit;
  for y := 0 to Bitmap.Height - 1 do
    begin
       Dest := Bitmap.ScanLine[y];
          for x := 0 to Bitmap.Width - 1 do
            begin
               with Dest^ do
                  begin
                    if (R<>255) and (G<>255) and (B<>255) then
                       begin
                          //тут любой код
                       end;
 
                  end;
               Inc(Dest);
            end;
    end;
 
 With Image1.Picture.bitmap do
  Begin
    Width:=Bitmap.Width;
    height:=Bitmap.Height;
    Palette:=Bitmap.Palette;
    Canvas.draw(0,0,bitmap);
    Refresh;
  end;
 
 
end;

if (R<>255) and (G<>255) and (B<>255) then
 begin
     //тут любой код
 end;

if R+G+B<>765 then
 begin
     //тут любой код
 end;

if ((R<>255) and (G<>255) and (B<>255)) then
 begin
     //тут любой код
 end;

if (R<>255) or (G<>255) or (B<>255) then//как я понял в сумме не должно быть 765

if (R<>255) or (G<>255) or (B<>255) then

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

type
  TBGRA=record
        case integer of
        0: (B,G,R,A: Byte);
        1: (color:   dword);
        end;
var
  Dest: ^TBGRA;

Bitmap.PixelFormat:=pf32bit;

if Dest^.Color<>$FFFFFF then

type
  TBGRA=record
        case integer of
        0: (A,B,G,R: Byte);
        1: (color:   dword);
        end;