How to create a quote sign '>>' in all non empty parag

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;