[РЕШЕНО][Delphi] Защита кнопки загрузки от некорректного файла

[Tiuman3]

Здравствуйте, помогите пожалуйста защитить кнопку загрузки от некорректности файла. В правильном файле должно быть 16 случайных чисел в столбик, а иначе должно выдавать ошибку. Есть некоторые предположения:

procedure TForm1.N9Click(Sender: TObject);
var f:textfile;
    i,j:integer;
begin

      if OpenDialog1.Execute then
      begin
      try
      try
      assignfile(f,OpenDialog1.FileName);
      reset(f);
      for i:=0 to 3 do
      for j:=0 to 3 do
      begin
      read(f,map[i,j]);
      end;
      except
      application.MessageBox('файл некорректен',MB_OK or MB_ICONERROR);
      exit;
      end;
      finally
      closefile(f);
      end;
      vremya:=0;
     zaderzhka:=0;
     Timer1.Enabled:=true;
     ShowMessage('...');
end;
end;

[Serge_Bliznykov]

попробуйте так:

procedure TForm1.N9Click(Sender: TObject);
var f:textfile;
    i,j:integer;
begin
 if OpenDialog1.Execute then  begin
   try
      try
      assignfile(f,OpenDialog1.FileName);
      reset(f);
      for i:=0 to 3 do
      for j:=0 to 3 do
         readln(f,map[i,j]);
      except
          application.MessageBox('файл некорректен',MB_OK or MB_ICONERROR);
	  exit;
      exit;
      end;
   finally
      closefile(f);
   end;
   vremya:=0;
   zaderzhka:=0;
   Timer1.Enabled:=true;
   ShowMessage('...');
  end;
end;

[Tiuman3]

Разобрался, спасибо.