TRichEdit控件的SelAttributes属性的问题

[wslmsx]

Height设置出现问题
第一种：
procedure TForm1.Button2Click(Sender: TObject);
begin
with richedit1.SelAttributes do
begin;
color:=clred;
Style:=[fsbold];
Height:=Height+5;
end;
end;
第二种：
procedure TForm1.Button2Click(Sender: TObject);
begin
richedit1.SelAttributes.color:=clred;
richedit1.SelAttributes.Style:=[fsbold];
richedit1.SelAttributes.Height:=Height+5;
end;
第一种没问题。第二种，color和style没问题，但是高度会变的很大。我感觉应该算成了richedit1的高度+5。（这个richedit1的height是194，richedit1.SelAttributes.Height算成了194+5.而真正的richedit1.SelAttributes.Height只有10）为什么会这样，请指教！
（必须用with的写法，height才没问题。可是不用with的写法的话，只有height出问题了，color和style没问题）

[taxi]

第二种变成了窗体的高度加上5了。

[taxi]

应该这样。
richedit1.SelAttributes.Height := richedit1.SelAttributes.Height + 5;

[wslmsx]

多谢帮忙！