>>339
Len(Text1.Text)<>0ならcountを増やすとか、少しは考えようよ。