Muchas gracias por responder amigo Neftali, te prometo que hice una busqueda y que me he leido todos los hilos en cuanto a "stringGrid color" pero no lo he solucionado
.
Cambiando esta condición
If (gdSelected in State) Then
por esta
If (arow=1) Then
pinto toda la fila, pero yo quiero que se pinte la fila que tiene el foco y a lo mas que he llegado es ha pintar la celda que tiene el foco, agradecere mucho su ayuda.