[StinK]

Имеется следующая структура, загруженная в Memo3:

Код:

AwelAskeborn1952@mail.ru#a454c150w;
DomekApuada2093@gmail.com#m419s73h;
AyusmanAgiassi2039@mail.ru#a436y117y;
AbhayankaraAvramenko1923@yandex.ru#l553q37g;
AadityaAfterkirk2068@yandex.ru#e299r19f;
AgrajeetaAnjomi195@gmail.com#m158e145w;
AbhayapradaAkshoomoff1984@pochta.ru#v221h93v;
AdwoaAntonmarci2010@yandex.ru#h490a10a;
FarrelAssumpico1910@yandex.ru#t302q84m;
ElettraBalsavich2061@yandex.ru#l425a73v;

Разбиваю данную конструкцию отдельно на мыло и пароль и записываю значения в Edit3 и Edit4:

Код:

begin
si:=Memo3.Lines[0];
email:=copy(si,pos(' ',si)+length(' '),pos('#',si)-pos(' ',si)-length(' '));
pass:=copy(si,pos('#',si)+length('#'),pos(';',si)-pos('#',si)-length('#'));
Edit3.Text:=email;
Edit4.Text:=pass;
end;

Требуется: при каждом последующем нажатии кнопки разбивать следующую строчку. Например сначал разобьём Memo3.Lines[0], потом Memo3.Lines[1], потом Memo3.Lines[2] и т.д. Как это сделать? Знаю, что нужно при каждом нажатии делать следующую процедуру - текущая_строка+1. Но как?