为什么出现不正常地定义参数对象错误，而且不能把k设置为0

Question

procedure TForm6.FileListBox1Change(Sender: TObject);
var
   k: integer;
   Path2: String;
   Name2: String;
begin
    for k := 2 to FileListBox1.Items.Count  do
      begin
      //设置文件路径,文件名字
        Path2 := FileListBox1.Directory + '\' + FileListBox1.Items.Strings[k - 1];
        Name2 := FileListBox1.Items.Strings[k - 1];
        with ADOQuery1 do
        begin
             Close;
             SQL.Clear;
             SQl.Add('insert into scan(num, load, name) values(:k,:Path2,:Nmae2)');
             Execsql;
        end;
      end;
end;

Answer 1

应该是FileListBox1.Items.Count-1后面的参数未赋值;
SQl.Add('insert into scan(num, load, name) values(:k,:Path2,:Nmae2)');
Parameters.ParamByName('num').Value:=1;
...
Execsql;