如何在delphi 2009中获取png图像RGBcolors

我有一个在png图像中编码为颜色序列的密码

图像为RGB颜色，但代码仅在绿色字节中加密

---

如何获取此1x84像素图像中的RGB颜色

这并不难。示例，显示像素（0，0）的R、G和B字节：

procedure TForm1.Click(Sender: TObject);
var
  png: TPngImage;
  clr: TColor;
begin
  png := TPngImage.Create;
  try
    png.LoadFromFile('C:\example.png');
    clr := png.Canvas.Pixels[0, 0];
    ShowMessage(IntToStr(GetRValue(clr)));
    ShowMessage(IntToStr(GetGValue(clr)));
    ShowMessage(IntToStr(GetBValue(clr)));
  finally
    png.Free;
  end;
end;