Hallo Bruce,
ab der 3. Zeile sind die Zellen in deinem Stringgrid leer. Du versuchst dann hiermit
x := x + StrToInt (stringgrid1.Cells[i,z]);
einen Leerstring in ein Integer umzuwandeln, was natürlich nicht klappen kann.
Außerdem beginnen die Indizes für row und col bei 0 und enden bei rowcount-1 bzw. colcount-1. Die beiden Schleifenköpfe solltest du also auch anpassen.
Gruß
Safti