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