problemas al recorrer imagen

[fasthorse]

Hola, he hecho lo que me comentas, pero me sigue saliendo igual...lo que tengo es así:

for(int i= 1; i<Imagen->Height;i++){
for(int j=1; 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;
}
}