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;