'Abstract Error'

[info@guzelceker.com]

  if Dm_Ayarlar.ADS_Departmanlar.RecordCount>0 then
  begin

 Form_Anasayfa.sTabControl_Departman.Tabs.Clear;
 Dm_Ayarlar.ADS_Departmanlar.First;
   while not Dm_Ayarlar.ADS_Departmanlar.Eof do
   begin
   Form_Anasayfa.sTabControl_Departman.Tabs.Add(Dm_Ayarlar.ADS_Departmanlar.FieldByName('DEPARTMAN').AsString);

     if not DirectoryExists(Dm_Ayarlar.ADS_Departmanlar.FieldByName('YOL').AsString) then
     begin
       Showmessage(Dm_Ayarlar.ADS_Departmanlar.FieldByName('DEPARTMAN').AsString+' Arşiv Sayfasının YOL u eşleşmiyor. Lütfen Hepsini Kontrol Edin');
     end else
     begin
       if Dm_Ayarlar.ADS_Departmanlar.FieldByName('ORIJINAL').AsBoolean then
       begin
          if not DirectoryExists(Dm_Ayarlar.ADS_Departmanlar.FieldByName('ORJYOL').AsString) then
          begin
          Showmessage(Dm_Ayarlar.ADS_Departmanlar.FieldByName('DEPARTMAN').AsString+' Arşiv Sayfasının ORJYOL u eşleşmiyor. Lütfen Hepsini Kontrol Edin');
          end;
       end;
     end;

   Dm_Ayarlar.ADS_Departmanlar.Next;
   end;
 end else
 begin
   Showmessage('Hiç Arşiv Sayfasınız Yok ayarlar Kısmından ayarlayınız');
 end;
 Dm_Ayarlar.ADS_Departmanlar.First;
 DepartmanFiltrele;

showmessage düştüğü zaman 'First chance exception at $7655A8B2. Exception class EAbstractError with message 'Abstract Error'. hatası alıyorum neden acaba