[antikiler]

Вообщем полазив по интернету вышел на это http://www.sql.ru/forum/actualthread...=20&tid=612807
Выяснилось следующее что кирилица сильно лагает в дельфи 2009, 2010. Так теперь работает

Код:

const
   D = ['а'..'я',  'ё'];
 var
  ir: ansichar;
   begin
   ir:= ansistring(edit1.Text)[1]; // глюк
     if CharInSet(ir, d  ) then ShowMessage('есть')
    else ShowMessage('нету');
 

причем еще глюк - если использовать ansichar вместо ansistring то ни чего не работает.
P.S. Вот еще для чтения