void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{    //обработчик нажатия клавиши на форме
        switch (Key) {
                case '1': //нажато 1
                        if (!last) { //если предыдущее 0
                                Series1->Add(1); //добавляем точку на 1
                                last = -1; //следующее -1
                        } else {
                                Series1->Add(last); //добавляем сохранённое следующее
                                last = -last;
                        }
                        break;
                case '0':
                        Series1->Add(0);  //добавляем 0
                        last = 0;  //сбрасываем флаг
                        break;
        }
}