Как распарсить строку AnsiString?

//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
    String t = "name[str] par[0.231456]";
    int pp = t.Pos(' ');
    //---------------------------------------------------------
    AnsiString s = t.SubString (  6, pp - 7 );
    AnsiString p = t.SubString ( pp + 5, t.Length() - pp - 5 );
    //---------------------------------------------------------
   ShowMessage ( AnsiQuotedStr ( s , '"' ) + '\n' + AnsiQuotedStr ( p , '"' ) );
}
//---------------------------------------------------------------------------

Memo1->Text=StringReplace(Edit1->Text," ","\r\n",TReplaceFlags()<<rfReplaceAll);

String t = "name[sthhr] par[0.231456] dar[0.23] far[1456]";
 
    while ( t.Pos(' ') )
    {
        t.Insert( "\r\n", t.Pos(' ') );
        t.Delete( t.Pos(' '), 1 );
    }
    Memo1->Text = t;

 
Edit1->Text="name[HOLY] par[1] bmp[box] Far[145.6] "; 
Edit2->Text=/*Какой-нибудь параметр, например par*/
   String t = Edit1->Text;
   int os=t.Pos(Edit2->Text);
   t.Delete(1,os-1);
   int kucha=t.Pos(" ");
   AnsiString end=t.SubString(Edit2->Text.Length()+2,kucha-Edit2->Text.Length()-3);
   ShowMessage(end);