Функция, которая определяет русские буквы в строке

bool iscyril(char c)
{
c=tolower(c);
return ( (с>='а')&&(c<='я') );
}

//---------------------------------------------------------------------------
bool iscyril(wchar_t c)
{
if ((c>='à' && c<='ÿ') || (c>='À' && c<='ß'))
{
 return true;
}
 else
{
 return false;
}
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(iscyril(Edit1->Text[2]))
 {
  ShowMessage("Ðóññêàÿ áóêâà");
 }
 else
 {
   ShowMessage("Íå ðóññêàÿ áóêâà");
 }
}
//---------------------------------------------------------------------------

bool is_cyrillic(wchar_t wch)
{
    int code = (int)wch;
    return (code >= 0x400 && code <= 0x52f);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(is_cyrillic(Edit1->Text[1]))
    {
        ShowMessage(L"Кириллица");
    }
}

bool __fastcall TForm1::iscyril(wchar_t c)
{
  wchar_t s[4] = {L'à',L'ÿ',L'À',L'ß'};
  return ((c>=s[0] && c<=s[1])||(c>=s[2] && c<=s[3]));
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    WideString SS = Edit1->Text;
    int t = Edit2->Text.ToInt();
    Label1->Caption = iscyril(SS[t]) ? "True" : "False" ;
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::iscyril(wchar_t c)
{
    wchar_t s[4] = {L'à',L'ÿ',L'À',L'ß'};
    return (c>=s[2] && c<=s[1]) ;
}

BoolToStr(iscyril(SS[t]),true);

Label1->Caption = BoolToStr(iscyril(WideString(Edit1->Text)[2]),true);