[Autumn]

Какой смысл писать 3 раза pos, когда все можно сделать одним?

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

З.Ы: перед проверкой преобразуй всю строку в один и тот же регистр, например, LowerCase;