В чем ошибка? (БД Delphi)

[SL1M_DOGG]

Выводит ошибку при подсоединении файла

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, StdCtrls, Grids;

type
  data = record
    fio: string;
    nazvvkl: string;
    razmvkl: integer;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f: TextFile;
  fName, nam: string;
  d:array [1..10] of data;
  i,j,k,l:integer;
  a: array [1..4] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=1;
OpenDialog1.Execute();
fName:=OpenDialog1.FileName;
Assignfile (f, fname);
Reset (f);
while not EOF(f) do
begin
  readln(f, d[k].fio);
  readln(f, d[k].nazvvkl);
  readln(f, d[k].razmvkl);
  k:=k+1;

end;
Closefile (f);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
l:=0;

for i:=1 to k-1 do
begin
  for j:=1 to Length(Edit1.Text) do
    begin
      nam:=Edit1.Text;
      if (AnsiLowerCase(nam[j])=AnsiLowerCase(d[i].fio[j])) then l:=1
      else l:=0;
    end;
  for j:=1 to Length(Edit2.Text) do
    begin
      nam:=Edit2.Text;
      if (AnsiLowerCase(nam[j])=AnsiLowerCase(d[i].nazvvkl[j])) then l:=1
      else l:=0;
    end;
  for j:=1 to Length(Edit3.Text) do
    begin
      if StrToInt(Edit3.Text)=d[i].razmvkl then l:=1
      else l:=0;
    end;
  if l=1 then
  begin
    StringGrid1.Cells[1,i]:=d[i].fio;
    StringGrid1.Cells[2,i]:=d[i].nazvvkl;
    StringGrid1.Cells[3,i]:=IntToStr(d[i].razmvkl);
  end;
end;



end;

end.

[SL1M_DOGG]

подключаю файл "1.txt"

Содержимое:

Петров
Депозит
2000
Сидоров
Депозитплюс
3000