Amigos pude solucionarlo de la siguiente manera:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString A,B;
int i;
A=Edit1->Text;
i=A.
AnsiPos("-");
B=A.
SubString(i+1,A.Length());
ShowMessage(B);
}
AnsiPos: para ubicar la posición del carácter en la cadena
SubString: Para delimitar el rango que me interesa guardar