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
Código:
var
WinControl: TWinControl;
begin
TEdit(WinControl){...};
end;
En tu caso la clase TStringGrid no es un ancestro de la clase TDBGrid.
// Saludos