[Assistant]

Ошибка в том, что ты не читал про TMemo все что нужно.
тебе нужно

Код:

j:=j+1;

вставлять не в условии, а после него, в конце for

P.S.: но лучше так не делай, а делай как в примерах показали, через Memo2.Lines.Add