>>188
TBitmap.ScanLine で直接操作。