Picture->LoadFromFile и Picture->LoadFromClipboardFormat

Полностью рабочий фрагмент:

unsigned char *ptr;

Image2->Picture->LoadFromFile("p1030.bmp"); // 640 x 480

for(y = 0; y < 480; y++){
ptr = (unsigned char *)Image2->Picture->Bitmap->ScanLine[y];
for(x = 0; x < 640 * 3; x += 3){
ptr[x + 2]; // R
ptr[x + 1]; // G
ptr[x] = 255; // B (синий - в максимум)
}
}

--------------------------------------------------------------------
А если туже самую картинку загрузить из Clipboard, то ничего не происходит :(

unsigned char *ptr;

Image2->Picture->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP), 0);

for(y = 0; y < 480; y++){
ptr = (unsigned char *)Image2->Picture->Bitmap->ScanLine[y];
for(x = 0; x < 640 * 3; x += 3){
ptr[x + 2]; // R
ptr[x + 1]; // G
ptr[x] = 255; // B (синий - в максимум)
}
}

------------------------------------------------------------------------
Цикл с использованием
Image2->Picture->Bitmap->Canvas->Pixels[x][y]
работает, но очень медленно...