pintar linea en grid segun condicion
 

amigo tengo 2 dias dandole vuenta a como pintar una linea dentro del stringrid segun su condicion pero aun no lo logro.
mi stringrid se alimenta de una base de dato y lo que quiero lograr ejemplo: Si el valor del campo es igual a 'Pendiente' entonces que me pinte la linea, me cambie el color de la fuente y me coloque el fuente en negrita pero a pezar de mi consulta e investigaciones aun no lo logro. le envio codigo con lo que lo estoy intentando hacer en este momento pero nada que funciona.

Código Delphi [-]
procedure TForm1.StringGrid1DrawColumnBackground(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
begin
with stringGrid1 do
//  with canvas do
       //begin
       if UniQueryFICPACESTATUSCONSULTA.AsString = 'PENDIENTE' then
       //if ADOQuery1EST.value = 'DIRIJASE A CAJA'  then
       //else if ADOQuery1EST.value = 'Atendiendo' then
       begin
       stringGrid1.TextSettings.FontColor := clGray;
       stringGrid1.TextSettings.Font.Size  := 18;
       //TFontStyle.fsBold
       //stringGrid1.TextSettings.Font.Style.  :=  TFontStyle.fsBold;
       //stringGrid1.TextSettings.Font.Style.  :=  TFontStyle.fsBold;
       //stringGrid1.DefaultDrawing.(Fill) .Color := clWebGreenYellow;
       //stringGrid1.DefaultDrawColumnCell(rect,datacol, column, State);
       end;

  end;

Esto en en VCL, no se si en FMX será igual. Yo lo tengo pero en C++ Builder y lo hago en DrawColumnCell, si alguien lo puede convertir a Delphi:
Si es NOMCLI un color, si es PRT otro, etc,, y si es la seleccionada rojo y negrita, y para la columna 0 otro color, espero te sirva.

gracias por tu respuesta, pero en DBgrid no tengo problema eso se hace de forma facil pero el problema lo tengo en el stringrid que no consigo ni forma ni manera de hacerlo.

Esto lo acabo de probar en FMX con StringGrid y me funciona en StringGrid1DrawColumnCell
Sacado de aqi:
https://stackoverflow.com/questions/...grid-row-color

Con un componente de 1st Class lo logro en el evento OnDrawDataCell

Código Delphi [-]
procedure TFormaAdministrarXML.wwDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
      if DModuloEmpresa.FDQueryUsuarios.FieldByName('USUARIO').Value <> '' then
        wwDBGrid1.Canvas.Brush.Color:= wwDBGrid1.Color
      else
        wwDBGrid1.Canvas.Brush.Color:= clRed; // Vacio

      wwDBGrid1.DefaultDrawDataCell(rect, field, state);
end;

gracias amigo Funciona perfecto pero ahora estoy buscando de cambiar el color de la fuente y colocarlo en negrita en la misma celda seleccionada en verde y no se como hacerlo