Динамический массив записей

[Alexeytur]

есть тип запись

type paci = record
f,i,o,adres:string;
rost,ves,davl:real;
end;

также есть две глобальные переменные

r:array of paci;//массив записей
  c:integer;//переменная для установления размера массива

и процедура при нажатии кнопки, в которой определяется размер массива и в массив вводятся данные из stringgrid

var i:integer;
begin
c:=strtoint(edit1.Text);
setlength(r,c);
for i:=1 to c do begin
r[i].f:=sg.Cells[i,1];//ошибка
r[i].i:=sg.Cells[i,2];
r[i].o:=sg.Cells[i,3];
r[i].adres:=sg.Cells[i,4];
r[i].rost:=strtofloat(sg.Cells[i,5]);
r[i].ves:=strtofloat(sg.Cells[i,6]);
r[i].davl:=strtofloat(sg.Cells[i,7]);
end;

при первой же попытке присвоения элементу записи из массива записей вылетает ошибка Access Violation.
Не подскажите как сделать работающий динамический массив из записей?

[Utkin]

А в Edit число вводить не пробовали? Это первое.
Второе. Нумерация в динамическом массиве начинается от нуля. Это значит, что у Вас, к примеру, нет элемента r[c], самый крайний будет r[c-1]. А в цикле неизбежно i принимает значение c. Делайте выводы .

[Alexeytur]

Спасибо за помощь, но настоящая ошибка была в том, что я перепутал индексы в stringgrid и он обращался к несуществующей ячейке.