RichEdit выделение текста

text=List->Text;
 
startPos=text.Pos("<");
endPos=text.Pos(">");
 
List->SelStart=startPos;
List->SelLength=endPos-startPos;

List->Perform(EM_SETSEL, startPos, endPos);
AnsiString str = List->SelText;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int startPos, endPos;
    startPos = RichEdit1->Text.Pos("<");
    endPos = RichEdit1->Text.Pos(">");
    RichEdit1->Perform(EM_SETSEL, startPos, endPos-1);
    AnsiString str = RichEdit1->SelText;
    ShowMessage(str);
}

text=List->Text;
 
startPos=text.Pos("<");
endPos=text.Pos(">");
 
List->Perform(EM_SETSEL, startPos, endPos-1);
 
ShowMessage(List->SelText);

RichEdit1->Clear();
RichEdit1->Lines->LoadFromFile("c:\\Temp\\[XandeR]\\Debug\\Win32\\1.RTF");
int startPos, endPos;
wchar_t start = '<';
wchar_t end = '>';
startPos = RichEdit1->Text.Pos(start);
endPos = RichEdit1->Text.Pos(end);
RichEdit1->Perform(EM_SETSEL, startPos,endPos-1);
UnicodeString str = RichEdit1->SelText;
ShowMessage(str);

  AnsiString text1 ;
  int startPos, endPos;
    text1=List1->Text;
    startPos=text1.Pos('<');
    endPos=text1.Pos('>');
    List1->Perform(EM_SETSEL, startPos-1, endPos);
    Memo1->Lines->Add(List1->SelText);