void __fastcall TForm1::FormCreate(TObject *Sender)
{
    AnsiString a=" 4-8 5 10 6 7 0 1 9 2-11 3";
    AnsiString sign[20];
    int i = 0,j = 0;
    char *p = a.c_str();
    while ( a.Length() )
    {
        if ( (*(p 1) == ' ') || (*(p 1) == '-') )
        {//find next sing bit
            sign[j  ] = a.SubString(1,i 1);
            a = a.Delete(1,i 1);
            p = a.c_str();
            i = 0;
        }
        else
        {
            i  ;
            p  = 1;
        }
    }
}