RichEdit

1. 颜色　　　

Begin
    ctl.SelStart := -1;
    ctl.SelLength:= 0;
    ctl.SelAttributes.Color := clRed;
    ctl.Lines.Add('Test');
End