Вопрос: как в TMemo можно выделять другим цветом (шрифтом) определённые участки текста? И ещё, как можно программно избавиться от перевода каретки? Memo1.text:=''; не помогает

var?
p: TPoint;
//
P.X := 0; P.Y := 0;
Memo1.CaretPos := P;
Memo1.SetFocus;
s7:=copy(s,1,Pos(';',s)-1)+' ('+slabel1.caption+') > '+#13+copy(s,Pos(';',s)+1,Length(s)-Pos(';',s));
ready.Lines.Insert(0,s7);
ready.selstart:=0;
ready.SelLength:=0;
ready.SelLength:=pos(#13,s);
ready.SelAttributes.color:=clred;
s7 := // тут собираешь свою строку
ready.Lines.Insert(0, s7); // сначала добавляешь, потом управляешь атрибутами !!!
b := Pos(#$D, s7); // var b: integer
ready.SelStart := 0;
ready.SelLength := b;
ready.SelAttributes.Color := clRed;
ready.SelStart := b;
ready.SelLength := Length(s7) - b;
ready.SelAttributes.Color := clBlack;