hata nerede

Mrb arkadaşlar yazdığım bi programın aşağıdaki parçası çalışmıyor.Sorun nerden kaynaklanıyor olabilir.

if (Ad.Text<>'') then
Begin
   Yeni.ADOTable1.Open; Yeni.ADOTable1.First;  Yeni.ADOTable1.Append;
   Mevcut:='False';
   While Not ADOTable1.Eof Do
      Begin
           if (Ad.Text=Yeni.ADOTable1.FieldByName('Ad').AsString) then
              Mevcut:='True';
      End;
Yeni.ADOTable1.Close;

End;//..if

BURDAKİ While Not ADOTable1.Eof Do DÖNGÜSÜNE GİRMEDİĞİNİ GÖRDÜM. BÖYLE  BİŞEYİ DAHA ÖNCEDE YAZMIŞTIM AMA SORUN YOKTU.
VERİTABANIMDA KAYIT OLMADIĞINI DÜŞÜNEBİLİRSİNİZ BELKİ AMA KAYIT VAR. yardım ederseniz sevinir. Kolay gelsin...

Ben hatayı gördün arkadaşlar. daha  doğrusu hata  değilde  eksik satır varmış burda. Merak eden olur diye yazıyorum. zaten komik bir  eksiklik. Sadece While döngüsü blogundayken en sona. AdoTable1.next; demeyi unutmuşum. Kolay gelsin..