Delete Blank Lines

var
  par : TParagraph;
  empty : Boolean;
  i : Integer;
begin
  ShowMessage('This Procedure deletes paragraphs which are empty except for mailmerge markers');
  par := WPRichText1.FirstPar;
  while par<>nil do
  begin
     if (par.Cell=nil) and par.HasObjects(false,[wpobjMergeField]) then
     begin
       empty := TRUE;
       for i:=0 to par.CharCount do
         if (par.CharItem[i]>#32) or
            ((par.ObjectRef[i]<>nil) and
             (par.ObjectRef[i].ObjType<>wpobjMergeField))then
            empty := FALSE;
     end else empty := FALSE;


     if empty then par := par.DeleteParagraph
     else par := par.next;
  end;
  WPRichText1.ReformatAll;
end;