Вылезает ошибка Read Beyond End Of File

[Vasiliusis]

Здравствуйте!

Есть следующий код (это часть кода):

 
procedure TForm1.Button3Click(Sender: TObject);
var
num: integer;
Q: file of TQuestion;
Question1: TQuestion;
begin
 
if QNum < 6 then
begin
 
randomize;
num:= random(FileNumber);
 
while flags[num] = 1 do
num:= random(FileNumber);
 
flags[num] := 1;
 
Label1.Caption:= 'ВОПРОС #'+IntToStr(QNum);
 
AssignFile(Q, '1.txt');
Reset(Q);
Seek(Q, 0);
 
Read(Q, Question1);
CloseFile(Q);
 
Memo1.Text:= Question1.Text;
Edit1.Text:= Question1.N1;
Edit2.Text:= Question1.N2;
Edit3.Text:= Question1.N3;
Edit4.Text:= Question1.N4;
 
QNum:= QNum+1;
 
end
else
begin
Button3.Caption:= 'РЕЗУЛЬТАТ';
N4Click(Sender);
 
end;
 
end;

Так же имеются файлы с 0.txt по 7.txt (в данном примере нужен только 1.txt).

Нужно считать данные в структуру Question1. При исполнении кода

AssignFile(Q, '1.txt');
Reset(Q);
Seek(Q, 0);
 
Read(Q, Question1);
CloseFile(Q);

вылезает ошибка Read Beyond end of file.

Помогите, в чем тут дело?

[fbus]

может файл пустой?

[Vasiliusis]

Нет, файлы все на месте. Могу выслать папку с программой.

[Vasiliusis]

Проблема решена