[[seoane]]

Código Delphi [-]
for j := 0 to Length(Memo1.Lines[i]) -1 do

Vaya, vaya, no me extraña que no te salieran las 2000