[[egostar]]

Otra forma de como hacerlo a como te lo han dicho en las otras respuestas que te han dado.

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do begin
    If StringGrid1.Cells[ACol,ARow] <> '' then begin
       Case StringGrid1.Cells[ACol,ARow][PosiciondelaLetra] of
          'O' : begin
                  Canvas.Brush.Color := clNavy;
                end;
          'R' : begin
                  Canvas.Brush.Color := clGreen;
                end;
       end;
    end;
  end;
end;

Salud OS