[StinK]

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

Код:

1 2 3 4 5 6 7 8 9 10

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:

Код:

1 2 3 4 5 6 7

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. Но как?