使用Delphi的TBmp.Scanline逐像素扫描BMP时颜色结果异常求助

我尝试用Delphi的TBmp.Scanline逐像素扫描.bmp文件，获取每个像素的RGB值并赋值给TPanel.Color。以下是我的代码：

procedure TForm4.FormCreate(Sender: TObject);
begin
  FBmp := TBitmap.Create;
  FBmp.PixelFormat := pf24bit;
  FBmp.LoadFromFile('xxxxx\screen.bmp');
end;

function TForm4.FindPixelColour(const aX, aY: integer): PRGBTriple;
var
  aPixel: PRGBTriple;
begin
  aPixel := FBmp.ScanLine[aY];
  Inc(aPixel, aX);
  Result := aPixel;
end;
procedure TForm4.UpdatePanel(const aPixel: PRGBTriple);
var
  Conversion: integer;
begin
  PnlColour.Color := RGB(aPixel.rgbtRed, aPixel.rgbtGreen, aPixel.rgbtBlue);
  Conversion := aPixel.rgbtRed;
  label1.Caption := 'Red: ' + IntToStr(Conversion);
  Conversion := aPixel.rgbtGreen;
  label2.Caption := 'Green: ' + IntToStr(Conversion);
  Conversion := aPixel.rgbtBlue;
  label3.Caption := 'Blue: ' + IntToStr(Conversion);
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
  fbmp.Free;
end;

程序执行时，FindPixelColour的结果不一致，有时PnlColour.Color能显示正确颜色，有时不行。我确认该.bmp是24位的，也试过改成32位并修改FBmp.PixelFormat，问题依旧。请问哪里出错了？是扫描BMP的方式问题，还是颜色赋值给TPanel.Color的方式问题？

核心问题：扫描行的字节对齐机制 #

BMP格式要求每行的字节数必须是4的整数倍，即使是24位BMP（单像素占3字节），如果一行像素总数×3无法被4整除，系统会自动在每行末尾填充空字节。你直接用Inc(aPixel, aX)移动指针，没有考虑这些填充字节，导致指针偏移错误，读取到的是错误的像素数据，这就是颜色显示时对时错的原因。

修复后的代码 #

修改FindPixelColour函数，通过字节偏移来定位正确像素，避免对齐问题：

function TForm4.FindPixelColour(const aX, aY: integer): PRGBTriple;
var
  RowPtr: PByte;
begin
  // 获取当前行的起始字节指针
  RowPtr := PByte(FBmp.ScanLine[aY]);
  // 计算目标像素的字节偏移：每个像素占3字节，直接乘以aX
  Inc(RowPtr, aX * SizeOf(TRGBTriple));
  // 转换为PRGBTriple类型返回
  Result := PRGBTriple(RowPtr);
end;

额外注意事项 #

• 如果改用32位BMP（pf32bit），单像素占4字节（含Alpha通道），此时每行字节数天然是4的倍数，不会有对齐问题，但要注意TRGBQuad的颜色顺序是蓝、绿、红、保留位，赋值时要对应正确：RGB(aPixel.rgbbtRed, aPixel.rgbbtGreen, aPixel.rgbbtBlue)。
• 必须确保aX和aY的取值在BMP的有效范围内：0 ≤ aX < FBmp.Width，0 ≤ aY < FBmp.Height，越界访问会导致不可预料的错误。

内容的提问来源于stack exchange，提问作者pio pio