B=ptr[x*3];
G=ptr[x*3 1];
R=ptr[x*3 2]; 

這樣子可以做處理
可是加了 Memo1->Text=IntToStr(ptr[x]) 在裡面
怎麼無法顯示圖裡所有的值
要如何改進才能將圖裡面的值一一SHOW出          for(int y=0;yHeight;y  )
     {
        ptr=(Byte*)TheBitmap->ScanLine[y];
        for(int x=0; xWidth; x  )
        {
          //Memo1->Text=IntToStr(ptr[x])
          //為什麼加這行不能秀出影像的值,只有出現一個數字而已
          
           //改成這樣就行了，不過一行只能顯示一個數值
           //如果想在同一行顯示多一點資料請看
           //http://delphi.ktop.com.tw/topic.php?topic_id=57552
          Memo1->Lines->Add(IntToStr(ptr[x]));
          
          ptr[x]=(byte)(255-ptr[x]);
       }
     }
     Image2->Picture->Assign(TheBitmap);