var  ss,s: string;begin  ss := 'aa.bb e-ff';  s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 0);  ShowMessage(s);  {aa.}                   {bb }                   {e- }                   {ff }  s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 5);  ShowMessage(s);  {aa.   }                   {bb e- }                   {ff    }  s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 10);  ShowMessage(s);  {aa.bb e-ff}end;