Fehler beim allowup

[moperswings]

Hallo,

könnt Ihr mal einen Blick auf diesen Code werfen. Case 1 ist richtig. Aber wenn ich die Markierung wieder rausnehmen möchte, wird mir ein angehangen.
Habe ich einen Logik oder Verständisfehler?

Delphi-Quellcode:

// Eigenschaften:
// allowallup -> true;
// groupindex -> 1;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
        Case SpeedButton1.GroupIndex of
        1: begin
             RichEdit1.SelText := '[b]' + RichEdit1.SelText + '[/b]';
           end;
        0: begin
             RichEdit1.SelText := StringReplace(RichEdit1.SelText, '[b]' + RichEdit1.SelText +           '[/b]', RichEdit1.SelText, [RfReplaceAll]);
           end;
        end;
end;