begin     StringGrid1.Cells[0,0]:='ФИО';   (вот в этой строке ошибка)     StringGrid1.Cells[1,0]:='Телефон';     StringGrid1.Cells[2,0]:='Год установки';      assignfile(f,'h:/телефоны.txt');      reset(f);       for i:=1 to filesize(f) do        begin          read(f,s);          stringgrid1.cells[0,i]:=s.fio;          stringgrid1.cells[1,i]:=s.tel;          stringgrid1.cells[2,i]:=s.dy;          StringGrid1.RowCount:=StringGrid1.RowCount+1;        end;          closefile(f);        end;