دوست عزیز
شما اگر دستور فیلتر را در ado استفاده کنی یعنی اطلاعات وارده رو بصورت دستور فیلتر وارد کنی و بعد تعداد رکوردهار شمارش کنی بعد اگر تعداد رکورد یک بود دستور edit* در غیر این صورت یعنی اگر صفر بود دستور append را استفاده کن

Adoname.filtered :=* "filedname = "* +* outstr(edit.text);
Adoname.filter := TRUE ;