Действие lines.add не завершает свего дествия, т.е прерывается

[NiKiToZZ-]

У меня есть код:

for i1:=0 to memo1.Lines.Count -1 do
begin
for q:=strtoint(edit1.text) to strtoint(edit2.text) do
if memo6.Lines[i1]=inttostr(q) then
memo1.Lines.Add(inttostr(q));

Его значение: сортировка числовых значений из одного memo в другое. тоесть я задаю диапазон в edit1 и edit2, и программа отсеивает из мемо6 в мемо1 числа, подходящие под заданный диапозон. но дело в том, что программа отсеивает не все числа! то-есть она может за раз отсеить 1 или 2 или 3 нужных числа. но не все подходящие под диапозон. Подскажите, как решить эту проблему? буду рад готовому коду с объяснениями
P.S замечено, что чем больше раз я выполню этот код (тыканьем на кнопку) тем больше значений он отсеит! чтобы он перенес все значения приходится делать 4-5 кликов

[CepbIu]

Сообщение от NiKiToZZ-

У меня есть код:

for i1:=0 to memo1.Lines.Count -1 do
begin
for q:=strtoint(edit1.text) to strtoint(edit2.text) do
if memo6.Lines[i1]=inttostr(q) then
memo1.Lines.Add(inttostr(q));

Его значение: сортировка числовых значений из одного memo в другое. тоесть я задаю диапазон в edit1 и edit2, и программа отсеивает из мемо6 в мемо1 числа, подходящие под заданный диапозон. но дело в том, что программа отсеивает не все числа! то-есть она может за раз отсеить 1 или 2 или 3 нужных числа. но не все подходящие под диапозон. Подскажите, как решить эту проблему? буду рад готовому коду с объяснениями
P.S замечено, что чем больше раз я выполню этот код (тыканьем на кнопку) тем больше значений он отсеит! чтобы он перенес все значения приходится делать 4-5 кликов

а вообще, как я думаю, проще использовать множество