Deeeeeuuuu, conseguido..., gracias a los dos por fin. D&W acertaste con tu primera propuesta. Antes lo probá al final del evento y ahora lo puse al inicio y conseguido, ya no hace ese efecto.
Código Delphi
[-]
DBGDatos.Canvas.Font.Color := clBlack;
Muchiiiiiiiiissssimas gracias, sois unos cracks