>>951
まさかとは思うが、

begin
 AA.Add(BB[i]);
 i := i+1;
end;

で巧くいったりしないか?