[[BlueSteel]]

ya lo solucione...

tube que cambiar esto

Código Delphi [-]
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do

por esto otro

Código Delphi [-]
 
 For i := 0 to Grilla.RowCount-1 do