овил приложение с Delphi 2007 до Delphi 2010, все прошло нормально, за исключением одного заявления, которое скомпилировалось нормально, но не работает:

If Edit1.Text[1] in ['S','س'] then 
  ShowMessage('Found')
else
  ShowMessage('Not Found')

Тем не менее, я знал, что в не будет, поэтому я изменил наCharInSet

If CharinSet(Edit1.Text[1],['S','س']) then
  ShowMessage('Found')
else
  ShowMessage('Not Found')

но это никогда не работало, когда строкаس, но всегда работаю сSДаже я бросил edt1.Text1 с AnsiChar всегда не работают арабские буквы.

Я делаю что-то не так, или это не такCharInSet работает? или это ошибка вCharinSet?

ОБНОВИТЬ:

Мой великий другИссам Али предложил другое решение, которое работает нормально, как это:

  If CharinSet(AnsiString(edt1.Text)[1],['S','س']) then