while ValueExists('Add', 'Name' + IntToStr(I)) do
で良いんじゃない？
Xかどこまであるかわからないってことでしょ？

まー連続で存在するってことと
NameXがあればKanaXとAddXがあるってことが前提だけど。