فهمت مثالك أخي وأردت فقط أن أضيف 
تابع آخر للتسهيل أكثر:
المزيد عنه:

تابع آخر للتسهيل أكثر:
PHP كود :
if AnsiIndexText(Edit1.Text, ['delphi', 'elarapy']) >= 0 then
Button1.Enabled := False;
PHP كود :
http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/StrUtils_AnsiIndexText.html

