[jachguate]

Si creo que estás haciendo mal el recorrido, pues al tener un arreglo basado en cero, deberias hacer:

  for Fil := 0 to sgVentas.RowCount - 1 do
    for Col := 1 to sgVentas.ColCount - 1 do
      sgVentas.Cells[Col, Fil] := '';

no?

Hasta luego.