[friz]

Код:

for i:=1 to 100 do
begin
memo1.text:=memo1.text+Simvol;
k:=k+1;
if k=15 then memo1.text:=memo1.text+#13;
end;

что-то такое.... писал по памяти