Выделение предложений в RichEdit C++ Builder

int start=0,stop=0;
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
        if(Key >= '0' && Key <= '9') Key = '\0';
        if(Key >= 'a' && Key <= 'z') Key = '\0';
        if(Key >= 'A' && Key <= 'Z') Key = '\0';
        if(Key >= '.' || Key <= ',') Key = '\0';
        RichEdit1->SelectAll();
 
        RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style>>fsBold;
        RichEdit1->SelAttributes->Color = RichEdit1->Font->Color;
 
        TSearchTypes Stype;
        Stype = Stype << stMatchCase;
 
        stop = RichEdit1->FindText(".",start,RichEdit1->Text.Length(),Stype);
 
        RichEdit1->SelStart =  start;
        RichEdit1->SelLength = stop-start+1;
 
        start = stop + 1;
 
        RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style<<fsBold;
        RichEdit1->SelAttributes->Color=clRed;
}

//if(Key != VK_UP) Key = '\0'; //  äëÿ ïîíòà

stop1 = RichEdit1->FindText(".",start,RichEdit1->Text.Length(),Stype);
stop2 = RichEdit1->FindText("!",start,RichEdit1->Text.Length(),Stype);
stop3 = RichEdit1->FindText("?",start,RichEdit1->Text.Length(),Stype);
 
stop = min(stop1,stop2,stop3);

#pragma option push -w-inl
    /* TCustomForm.Create */ inline __fastcall virtual TForm(Classes::TComponent* AOwner) : TCustomForm(AOwner) { }
    #pragma option pop
    #pragma option push -w-inl
    /* TCustomForm.CreateNew */ inline __fastcall virtual TForm(Classes::TComponent* AOwner, int Dummy) : TCustomForm(AOwner, Dummy) { }
    #pragma option pop
    #pragma option push -w-inl
    /* TCustomForm.Destroy */ inline __fastcall virtual ~TForm(void) { }
    #pragma option pop
    
public:
    #pragma option push -w-inl
    /* TWinControl.CreateParented */ inline __fastcall TForm(HWND ParentWindow) : TCustomForm(ParentWindow) { }
    #pragma option pop
    
};