Ошибка при открытии файла I/O error 103 Опции

[ninja]

Здравствуйте, столкнулся с такой проблемой при открытии типизированного файла все происходит нормально, но когда нажимаю кнопку отмена вместо открыть появляется ошибка I/O error 103

procedure TForm1.N5Click(Sender: TObject);  // Open file
type
zapic=record
      tablica:string[1];
      fynkci9:string[200];
      kolvo_strok:integer;
      kolvo_el:integer;
      end;
var
j:integer;
ft:file of zapic;
s:zapic;
m:string;
begin
OpenDialog1.Title:='Открыть файл';
openDialog1.Filter :='Файлы таблицы истинности|*.tabl';
if OpenDialog1.Execute then
  begin
   fname:=OpenDialog1.FileName;
   AssignFile(ft,fname);
   Reset(ft);
  end
  else ShowMessage('Открытие файла остановлено');
j:=0;
read(ft,s);
stringgrid2.RowCount:=s.kolvo_strok;
while not eof(ft) do
  begin
   read(ft,s);
   stringgrid2.Cells[0,j]:=s.tablica;
   inc(j);
  end;
edit1.Text:=inttostr(s.kolvo_el);
edit2.Text:=s.fynkci9;
closeFile(ft);
end;

Пытался посмотреть по шагам ставлю указатель на начало процедуры, дойдя до строки

if OpenDialog1.Execute then

указатель почему-то перепрыгивает совсем на другую процедуру

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StringGrid2.TopRow := StringGrid1.TopRow;
end;

[ninja]

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