problemas la hacer un cast de un TStringGrid(DBGrid)

[orfeo]

Hola, tengo una procediminto <procedure stringGridFill(grid:TStringGrid)> que anda bien para StringGrid este solo hace que las columnas se auto-ajusten dependiendo del largo de los string que muestra.
Quiero usar la misma funcion para una DBgrid, por ejemplo:

DBGrid1.DataSource.DataSet.DisableControls;
TStringGrid(DBGrid1).DefaultRowHeight:=60;
DBGrid1.DataSource.DataSet.EnableControls;

este codigo anda, entonces lo que yo hago es:

DBGrid1.DataSource.DataSet.DisableControls;
stringGridFill(TStringGrid(DBGrid1)) (x)
DBGrid1.DataSource.DataSet.EnableControls;

pero en la linea (x) salta un error de direccionamiento, y no es dentro del procedure, ya que es antes de llegar al begin de stringGridFill, por eso me da a penzar que hay algo mal, en el cast..

que es?