[PS11011010]

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
 begin
 //если значение ячейки = 'В процессе', тогда желтая строка
 if Pos('В процессе',StringGrid1.Cells[1,1])<>0 then
 begin
  StringGrid1.Canvas.Brush.Color := clYellow;
  // закрашиваем третью строку
  if ARow = 2 then
   StringGrid1.Canvas.FillRect(Rect);
 end;
end;

Вроде нигде не ошибся.