Открытие текстового файла

  begin
      q1:=StrToInt(Label8.Caption);
      AssignFile(F,'Data\'+Label9.Caption+'.dat');
      Reset(F); {место где останавливается выполнение программы}
      Seek(F, q1-1);
      read(F, DummyMember);
      DummyMember.Fam:=Edit1.Text;
      DummyMember.Name:=Edit2.Text;
      DummyMember.Otch:=Edit3.Text;
      DummyMember.Date:=Edit4.Text;
      DummyMember.Prof:=Edit5.Text;
      DummyMember.Foto:=Edit8.Text;
      DummyMember.Biog:=Edit7.Text;
      if RadioButton1.Checked=true then
        DummyMember.Sex:='ч'
      else DummyMember.Sex:='ж';
      Seek(F, q1-1);
      write(F, DummyMember);
      CloseFile(F);
      N[q1,1]:=Edit1.Text;
      N[q1,2]:=Edit2.Text;
      N[q1,3]:=Edit3.Text;
      N[q1,4]:=Edit4.Text;
      N[q1,5]:=Edit5.Text;
      N[q1,6]:=Edit8.Text;
      N[q1,7]:=Edit7.Text;
      if RadioButton1.Checked=true then N[q1,8]:='ч'
      else N[q1,8]:='ж';
      if q1=2 then fm3.Bn2.Click;
      if q1=3 then fm3.Bn3.Click;
      if q1=4 then fm3.Bn9.Click;
      if q1=5 then fm3.Bn4.Click;
      if q1=6 then fm3.Bn10.Click;
      if q1=7 then fm3.Bn5.Click;
      if q1=8 then fm3.Bn11.Click;
      if q1=9 then fm3.Bn6.Click;
      if q1=10 then fm3.Bn12.Click;
      if q1=11 then fm3.Bn7.Click;
      if q1=12 then fm3.Bn14.Click;
      if q1=13 then fm3.Bn8.Click;
      if q1=14 then fm3.Bn13.Click;
      fm3.B2.Click;
  end;

OD1.Filter:='Автобіографія(*.TXT;*.DOC)|*.TXT;*.DOC';
  if OD1.Execute then
  begin
    Edit7.Text:=OD1.FileName;
  end;
 
  if FileExists(Edit7.Text) then
    begin
      memo1.Clear;
      AssignFile(l,Edit7.Text);
      Reset(l);
      Memo1.Lines.Clear;
      Memo1.Lines.Add('******************************************************');
      while not eof(l) do
      begin
        Readln(l,s0);
        Memo1.Lines.Add(s0);
      end;
      CloseFile(l);
    end;