[roman]

Orfeo:

Esto, TStringGrid(DBGrid1).DefaultRowHeight:=60;

*jamás* debe hacerse.

TDBGrid y TStringGrid no están en la misma línea de la jerarquía de clases. En general cuando haces el "casting"

TUnaClase(Objeto)

Objeto debe ser de una clase ancestra de TUnaClase como en

var
  WinControl: TWinControl;

begin
  TEdit(WinControl){...};
end;

En tu caso la clase TStringGrid no es un ancestro de la clase TDBGrid.

// Saludos