[AND_REY]

Замени:

Код:

for i:=a to Memo1.Lines.Count do

на:

Код:

for i:=0 to Memo1.Lines.Count - 1 do

будет всё норм.