try{
     pom= LabeledEdit3;
     jednotky=StrToInt(LabeledEdit3->Text);
    if(jednotky<1) throw -1;
    if(jednotky>9) throw 10;

    pom= LabeledEdit4;
    desitky=StrToInt(LabeledEdit4->Text);
    if(desitky<1) throw -1;
    if(desitky>9) throw 10;

    pom= LabeledEdit5;
    stovky=StrToInt(LabeledEdit5->Text);
    if(stovky<1) throw -1;
    if(desitky>9) throw 10;

}