Extraer caracteres de una Cadena!!

[subzero]

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