[yorllito]

Gracias por sus soluciones compañeros. Creo que todas funcionaron pero he encontrado una muy sencilla buscando aquí en los foros. es la siguiente.

Código Delphi [-]
TJPEGImage(Image1.Picture.Graphic).GrayScale := True;

Gracias nuevamente.