如果修改调色板，实现单色位图文件反色

如果修改调色板，实现单色位图文件反色 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20060925090610294.html
请问如何修改调色板，通过修改调色板把黑色变白色，白色变黑色，那位高人能用DELPHI写一小段示例程序吗？急啊

解析出R，G，B，利用Canvas的Pixels[x][y]，配合GetRValue，GetGValue和GetBValue函数，之后将这个值减去255，即：  
  Pixels[x][y]   =   GetRValue(Pixels[x][y])   -   255;  
  ......

把调色板的值反一下

色板中每个色值的RGB分量被255减即可