добавление записей в цикле из edit (adotable, access)

procedure TForm10.btn2Click(Sender: TObject);
var z:Boolean;
n,i:Integer;
begin
  n:=StrToInt(edt1.Text);
  SetLength(Ed, n+1);
  {for i := 0 to n-1 do
begin
if Ed[i].Text='' then z:=False
else z:=true;
end;
if z=false then  showmessage('Не все поля заполнены')
   else
   begin}
  for i:=0 to n-1 do begin
with t do begin
insert;
fieldbyname('наименование').value:=Ed[i].Text;
Post;
end;
end;
end;

fieldbyname('наименование').value:=Ed[i].Text;

i:=1;
while i< strToInt(editl.text) do
begin
Table.Append;
Table_id.value:=i;
TableНаименование.Value:=ed[i];
i:=i+1;
Table.Post;
Table.Next;
end;

var
  Form10: TForm10;
  Ed: Array of TEdit;
implementation
 uses MainUnit, parents,PASSWORD;
{$R *.dfm}
procedure TForm10.btn1Click(Sender: TObject);
var Lab: Array of TLabel;
    Ed: Array of TEdit;
    n,i: Integer;
begin
  n :=StrToInt(edt1.Text);
  SetLength(Lab, n+1);
  SetLength(Ed, n+1);
  for i := 0 to n-1 do
    begin
      Lab[i] := TLabel.Create(Self);
      Lab[i].Parent := Self;
      Lab[i].Left := 10;
      Lab[i].Top := i*30+20;
      Lab[i].Caption := 'Предмет № '+IntToStr(i+1);
      Ed[i] := TEdit.Create(Self);
      Ed[i].Parent := Self;
      Ed[i].Left := 150;
      Ed[i].Top := i*30+20;
      Ed[i].Text := 'Наименование'+IntToStr(i+1);
    end;
 
end;
procedure TForm10.btn2Click(Sender: TObject);
var z:Boolean;
n,i:Integer;
begin
  n:=StrToInt(edt1.Text);
  SetLength(Ed, n+1);
  {for i := 0 to n-1 do
begin
if Ed[i].Text='' then z:=False
else z:=true;
end;
if z=false then  showmessage('Не все поля заполнены')
   else
   begin}
  for i:=0 to n-1 do begin
with t do begin
Insert;
fieldbyname('наименование').value:=Ed[i].Text;
Post;
end;
end;
end;
 
 
 
 
 
 
procedure TForm10.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then btn1Click(Sender);
end;
 
end.

procedure TForm10.btn2Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to n-1 do
  with t do begin
    Insert;
    fieldbyname('íàèìåíîâàíèå').AsString := Ed[i].Text;
    Post;
  end;
end;