Потому-что:
Код:
DataModule1.ADOTable_Comps.Append;
Хотя вообще-то по логике если не найдено. Проверьте код, действительно у вас он находит?
И еще, так писать
Код:
if (DataModule1.ADOTable_Comps.Locate('compname',ANam e,[]))=false then
нехорошо, лучше так:
Код:
if not DataModule1.ADOTable_Comps.Locate('compname',AName,[]) then