[timoneg]

Код:

Procedure TForm1.Button1Click(Sender:TObject);
Type mas=array[1..6] of Real;    
Var a:mas;
       i:Integer;  
       s:real;      
Begin
For i:=1 to 6 do     
a[i]:=StrToFloat(StringGrid1.Cells[i,1]);
s:=0;           
For i:=1 to 6 do     
s:=s+a[i];
Label1.Caption:='S= '+FloattoStr(s);
End;

При заполнении всех строк в таблице всё ок, но может я конечно ошибаюсь - это кусок кода из учебника публикованном на народе)
Разве таблица не должна заполняться сама?
Выдает ошибку not a valid floating point value, если не заполнить хотя бы одну ячейку.
Может я где-то упустил кнопку "Сделать всё за...сь"?

[angvelem]

Используй вместо StrToFloat, StrToFloatDef или TryStrToFloat.