CharInSet doesn't work with non English letters?

Question

I have updated an application from Delphi 2007 to Delphi 2010, everything went fine, except one statement that compiled fine but not working which is:

If Edit1.T         


        

Answer 1

Use TCharHelper.IsInArray as follows:

if Edit1.Text[1].IsInArray(['S','س']) then 
  ShowMessage('Found')
else
  ShowMessage('Not Found');