[Autumn]

Пишешь в OnClick для кнопки:

if ((pos('cos', LowerCase(Edit1.Text))>0)or(pos('sin', LowerCase(Edit1.Text))>0)) then ShowMessage('Ошибка!');