ГМ
procedure TForm1.TMSFMXLiveGrid5GetCellLayout(Sender: TObject; ACol,
ARow: Integer; ALayout: TTMSFMXGridCellLayout; ACellState: TCellState);
begin
begin
if TMSFMXLiveGrid5.Cells[Acol, ARow] = 'Si'then
begin
with ALayout do
begin
Fill.Color:= $FFFB6E50;
end;
procedure TForm1.TMSFMXLiveGrid5GetCellLayout(Sender: TObject; ACol,
ARow: Integer; ALayout: TTMSFMXGridCellLayout; ACellState: TCellState);
begin
begin
if TMSFMXLiveGrid5.Cells[<тут номер ячейки с текстом для проверки>, ARow] = 'Si'then
begin
with ALayout do
begin
Fill.Color:= $FFFB6E50;
end;