Код:
ADOQuery2.Insert;
ADOQuery2.AppendRecord([a[i],b[i],c[i],d[i],f[i],k[i]]);
ADOQuery2.Post;
label19.Caption:=a;
label20.Caption:=b;
label21.Caption:=c;
label22.Caption:=d;
label23.Caption:=f;
label24.Caption:=k;
end;
имел в виду заменить "ADOQuery2." на "DataSource1.DataSet."