How to create a quote sign in all non empty paragraph:
Code
par := WPRichText1.FirstPar;
while par<>nil do
begin
if par.ParagraphType=wpIsSTDPar then
begin
if par.CharCount>0 then
par.Insert(0,'>> ', par.CharAttr[0]);
end;
par := par.NextPar;
end;
WPRichText1.DelayedReformat;