void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
 if((Key == '.')||(Key == ',')) Key = DecimalSeparator;

 // pазpешить ввод цифp, backspace, знака в пеpвой позиции
 // и один pаз pазделителя
 if(!(isdigit(Key)||
      (Key == 8)||
      ((Key == '-')&&(eInterval->SelStart == 0))||
      ((Key == DecimalSeparator)&&
       (!strchr(eInterval->Text.c_str(),DecimalSeparator)))))
   Key = 0;
}