Выделение текста в StringGrid Delphi

[Ilya_L]

Доброго времени суток! Подскажите, пожалуйста, как мне можно закрасить текст (не ячейку) в StringGrid? В Edit вводится часть слова и в StringGride должны закраситься все найденные результаты. Пример кода ниже:

str := Edit1.Text;
  for i := 0 to StringGrid1.RowCount - 1 do begin
    sg_str := StringGrid1.Cells[0, i];
    if pos(str, sg_str) > 0 then begin
      p := pos(str, sg_str);
      l := Length(str);
      StringGrid1.Canvas.FillRect(Rect);
      StringGrid1.Canvas.Brush.Color := clYellow;
      StringGrid1.Canvas.TextOut(p, l, StringGrid1.Cells[0, i]);
    end;
  end;