Hola
Minio, también a todos los del club.
Minio, veo en tu código que haces varías condicionales con if ... then. Podría apostar a que puede ser que el primer registro no cumple con ninguna de las condiciones evaluadas y por consecuencia el registro se pinte en algun color predeterminado en alguna parte..
Intenta insertar forzar la letra a color negro en la primera línea de código.
Código Delphi
[-]Grid.Canvas.Font.Color := clBlack;
.....
Saludos.