RichEdit按行指定颜色的问题？

Question

输入的数据，不断的追加到RichEdit1的前面，每增加一行，则给新行指定一个不同的颜色，可是每次输入后，除第一行外，其他行全变成上一次的指定的颜色了，不知道为什么？    RichEdit1.Text := strSendMsg + #13#10 + RichEdit1.Text;
    RichEdit1.SelStart := 0;
    RichEdit1.SelLength := Length(RichEdit1.Lines[0]);
    case intColor of
      1:
      begin
        RichEdit1.SelAttributes.Color := RGB(255, 0, 0);
        intColor := 2;
      end;
      2:
      begin
        RichEdit1.SelAttributes.Color := RGB(0, 255, 0);
        intColor := 3;
      end;
      3:
      begin
        RichEdit1.SelAttributes.Color := RGB(0, 0, 255);
        intColor := 1;
      end;
    end;
    RichEdit1.SelStart := 0;
    RichEdit1.SelLength := 0;
  end;

Answer 1

var
  f: TFont;
begin
  f := TFont.Create;
  f.Assign(RichEdit1.Font);
  f.Size := 24;
  RichEdit1.SelAttributes.Assign(f);
  RichEdit1.Lines.Add('总书记你好');

Answer 2

这样确实可以改变颜色了，但是文本超出RichEdit的高度时，不能自动往下滚动
请问如何始终保持最后一行能够显示