[dimon_dimon]

У меня такой вопрос... Есть на форме 44 Edit'a.Так вот реально как-то циклом записать текст из каждого Edit'a (начиная с первого и заканчивая последним) в файл?????Пробовал так:

Код:

var i:integer;
    s:shortstring;
    f:textfile;
Mas: Array[1..44] of Tedit;

begin
AssignFile(f,'C:\123.txt');
ReWrite(f);
try
for i:=1 to 44 do begin
s:=Mas[i].Text;
Writeln(f,s);
end
finally
CloseFile(f);
end;

но ничего не получается!
Кидает ошибку "Access violation ......................."!Может кто-то подскажет как решить эту проблему?просто не хочется писать Writeln(f,Edit1.text) и так до 44-го!