Загрузка в StringGrid

[qpuTuJlb]

Доброго времени суток, нужно открыть в stringgrid текстовый файл, ошибок в коде нету, но файл не открывается. Что не так?

procedure fileviewer(fname:shortstring; g:tstringgrid);//загрузка
var
f:file of stud;
i:integer;
a:stud;
begin
assignfile(f,fname);
reset(f);
i:=1;
while not EOF(f) do begin
read(f,a);
a.i:=g.cells[0,i];
a.f:=g.cells[1,i];
a.k:=g.cells[2,i];
a.gr:=g.cells[3,i];
i:=i+1;
end;
closefile(f)
end;

[BDA]

Во-первых, файл не текстовый, а файл записей stud.
Во-вторых, значения нужно присваивать ячейкам стринггрида, а не полям переменной a.
В-третьих, нужно задавать количество строк в стринггриде, иначе могут не все данные отобразиться.

[Stilet]

Что не так?

Я бы сказал "все не так". Любопытно откуда выдран сей код, который по факту содержит два противоречивых действия:
1) Считывает из файл в переменную: read(f,a);
2) Заполняет потом эту же переменную черти-чем: a.i:=g.cells[0,i];