[Страдалецъ]

Это че вы хотели сказать вот этим?:

Код:

1 2 3 4 5

begin if  Form3.StringGrid2.Cells[6,i]='' then    for i:=1 to 100 do    Form3.StringGrid2.Cells[6,i]:=FloatToStr(0) end;

Видимо должно быть так:

Код:

1 2 3

for i:=1 to 100 do if  Form3.StringGrid2.Cells[6,i]=''     then Form3.StringGrid2.Cells[6,i]:=FloatToStr(0)

В противном случае значение i в проверках неизвестно чему равно.
Вообще можно заменить весь блок:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

if  Form3.StringGrid2.Cells[6,i]='' then    for i:=1 to 100 do    Form3.StringGrid2.Cells[6,i]:=FloatToStr(0) end; begin if  Form3.StringGrid3.Cells[3,i]='' then    for i:=1 to 100 do    Form3.StringGrid3.Cells[2,i]:=FloatToStr(0)  end;  begin if  Form3.StringGrid4.Cells[4,i]='' then    for i:=1 to 100 do    Form3.StringGrid4.Cells[4,i]:=FloatToStr(0)  end;    begin if  Form3.StringGrid5.Cells[5,i]='' then    for i:=1 to 100 do    Form3.StringGrid5.Cells[5,i]:=FloatToStr(0) end;

на такой:

Код:

1 2 3 4

for j := 2 to 6 do for i:=1 to 100     do if  Form3.StringGrid2.Cells[j,i]=''         then Form3.StringGrid2.Cells[j,i]:=FloatToStr(0)