Geht das mit dieser If then abfrage einfacher?

[BBoy]

In meinem Programm wird ein String erstellt bei dem alle 5 hinzugekommenen Elementen ein Zeilenumbruch stattfinden soll.
Derzeit löse ich das so:

Delphi-Quellcode:

    karten_beschriftung := karten_beschriftung + leftstr('('+inttostr(i)+')'+copy(cname,0,20),26);
    if i = 5 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 10 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 15 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 20 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 25 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 30 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 35 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 40 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 45 then
      karten_beschriftung := karten_beschriftung + chr(13);
    if i = 50 then
      karten_beschriftung := karten_beschriftung + chr(13);

Geht das nicht einfacher mit einer formel oder so?