ADOQuery.Insert; ADOQuery.FieldByName('Фамилия').AsString := a[i]; ... ADOQuery.Post;
ADOQuery.AppendRecord([a[i],b[i],c[i],d[i],f[i],k[i]]);