[BuenaOnda]

También se puede hacer de la siguiente manera..

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     IF State=[gdSelected]THEN
     BEGIN
          StringGrid1.Canvas.Brush.Color := clGreen;
          StringGrid1.Canvas.FillRect(Rect);
     END;

end;