基础问题，如何修改memo中字体颜色！！有挑战吗??

Question

小弟作了一个同时监测2个串口的小程序，然后接收过来的信息在同一个memo中显示。我想把memo中2种信息的字体显示成两种颜色，memo1.Font.Color全部都一个色了。
希望能人达士给予我强大的支援。先在这里感谢一下。分不多 呵呵

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  richedit1.SelAttributes.Color:= clred;
  richedit1.Lines.Add('aaa');
  richedit1.SelAttributes.Color:= clblue;
  richedit1.Lines.Add('aaa');
  richedit1.SelAttributes.Color:= clgreen;
  richedit1.Lines.Add('aaa');
end;

Answer 2

呵呵，以前也想过用这个问题，后在懒了，用带>>和不带>>区分不同来源的信息，今天又学了一招。