Saludos, yo uso un truquillo tomado de Trucomania 334, me funciona perfectamente en Delphi 7 Enterprise.
El código es el siguiente:
Código Delphi
[-]
TStringGrid(DBGrid).Scrollbars:=ssNone;
TStringGrid(grdEmpresas).Scrollbars:=ssBoth;
TStringGrid(grdEmpresas).Scrollbars:=ssHorizontal;
TStringGrid(grdEmpresas).Scrollbars:=ssVertical;
Solo que tiene un comportamiento curioso... las barras que aparecen no son las de las constantes, ya sabes con ssNone no debería de mostrar ninguna, con ssBoth debería mostrar ambas, etc.
Espero te ayude.