Schleifen

[monta]

das versteh ich nicht, hast du denn code von xaromz?

bei mir funtkioniert es einwandfrei

für die Übersichtlichkeit könnte man ja das memo.seltext auch durch:

memo1.Lines.Add(IntToStr(c)); ersetzen, ist ja aber eigentlich egal.