problemas al recorrer imagen

[fasthorse]

Hola, tengo un problemita al recorrer la imagen. Tengo una funcion que me pasa la imagen de color a blanco y negro, pero siempre en todas las imagenes me deja un margen derecho a color, es como si no me recorriera la imagen entera, pero el bucle esta bien creo, no?

for(int i= 0; i<Imagen->Height;++i){
for(int j=0; j<Imagen->Width;++j){
int TheRGBValue = ColorToRGB(Imagen->Canvas->Pixels[i][j]);
Byte Tono = (GetRValue(TheRGBValue)+GetGValue(TheRGBValue)+GetBValue(TheRGBValue))/3;
TColor WB = (TColor)RGB(Tono, Tono, Tono);
Imagen->Canvas->Pixels[i][j]=WB;
}
}

gracias. Saludos