WordWrap für RadioGroup?

[Helmi]

Jetzt hätt ich noch ne frage:

Ich hab daraus eine Procedure gemacht:

Delphi-Quellcode:

procedure RadioGroup_WordWrap(RadioGroup: TRadioGroup);
var
  i: Integer;
  rbs: DWORD;
  rb: TRadioButton;

begin
  with RadioGroup do
    begin
      for i := 0 to Pred(Items.Count) do
        begin
          rb := Buttons[i];
          rbs := GetWindowLong(rb.Handle, GWL_STYLE);

          //Original
          rbs := rbs or BS_MULTILINE or BS_TOP;
 
          //Versuch zum Ein/Ausschalten
          If rbs = (rbs + BS_MULTILINE) then
            rbs := rbs - BS_MULTILINE
          else
            rbs := rbs + BS_MULTILINE;

          SetWindowLong(rb.Handle, GWL_STYLE, rbs);
        end;
      Invalidate;
    end;
end;

Wie kann ich das WordWrap ein- bzw. ausschalten?