void __fastcall TForm1::MaskEdit1Change(TObject *Sender)
{
        //Cia turbut viskas aisku
        TStringList *list = new TStringList;
        list->Add("Malboro");
        list->Add("L&M");
        list->Add("Prima");
        //Irasom i kintamaji kas irasyta Edite
        String irasyta = MaskEdit1->Text;
        //Gaunam kiek isviso masyve yra nariu
        int len = list->Count;
        //Laikina laikmena (Joje irasysim kuria eilute dabar butent skaitome)
        int temp = 0;
        //Reik -1 nes masyvas prasideda ne nuo 1 o nuo 0.
        while (temp <= len-1) {
                //Jai tas kas irasyta laukelija sutinka su masyvo nariu numeris temp tai
                if (irasyta == list->Strings[temp]) {
                        //Rasom i antra edita zodzius
                        ShowMessage("Labuk labukelis");
                        //Iseinam is ciklo
                        break;
                }
                //Jai papuolem cia reiskias tas narys masyvo neatitiko ir tesiam cikla tik padidinam eilutes skaiciu kuria skaitysime is masyvo per viena
                temp++;
        }
}