[NIch]

Позволю себе поправить

Код:

for i:=1 to 100 do
begin
memo1.text:=memo1.text+Simvol;
Inc(k);//Так красивше
if k=15 then 
begin
memo1.text:=memo1.text+#13;
k := 0;//А так начинаю цикл подсчета заново
end;
end;