procedure TForm1.StringGrid1DrawCell(
Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do
if Cells[ACol, ARow] = 'SÍ' then
begin
Canvas.Brush.Color := clGreen;
Canvas.FillRect(Rect);
Canvas.TextRect(Rect, Rect.Left + 2 ,Rect.Top + 2, Cells[ACol, ARow]);
end;
end;