Warning en asignación de TColor a Integer

[fasthorse]

Mirad, una función para pasar a blanco y negro, pero me pone la imagen en tonos rojos, en vez del blanco y negro...

for(int k=0;k<Imagen->Height;k++)
{
for(int l=0;l<Imagen->Width;l++){
int TheRGBValue = ColorToRGB(Imagen->Canvas->Pixels[k][l]);
Imagen->Canvas->Pixels[k][l]=(GetRValue(TheRGBValue)+GetGValue (TheRGBValue)+GetBValue(TheRGBValue))/3;
}
}

ME da un Warning que dice que hay una asignación de TColor a int, será cuando asigno el canvas->Pixels a los colores... puede ser que esté mal la asignación? y si es así, ¿cómo le asigno el nuevo color a la imgane??

Muchas gracias.
Saludos.