work through the RTF data and extract it line by line

var par : TParagraph;
    i, j : Integer;
    s : string;
begin
  par := WPRichText1.FirstPar;
  while par<>nil do
  begin
     i := 0;
     j := 0;
     while i<par.CharCount do
     begin
       if par.CharItem[i]=#10 then
       begin
          s := par.GetSubText(j, i-j);
          ShowMessage(s);
          j := i+1;
       end;
       inc(i);
     end;
     if j<i then
     begin
          s := par.GetSubText(j, i-j);
          ShowMessage(s);
     end;
     par := par.next;
  end;
end;