Проблема с Memo1 и переменными.

Добрый день. У меня маленькое недопонимание. Есть текстовый файл, в нем записи типа "Логин;пароль", по нажатии кнопки, все грузиться в memo. Теперь нужно загруженные строки в memo записать в переменные, логин в переменную а, пароль в переменную b, а вот разделитель отбросить. Делать это нужно до достижения определнного результата, например пока переменная С не будет больше нуля.

 

Если правильно понял, то как-то так:

Code:

var c : integer;
  a, b, tmp : string;
begin
  while c>0 do
  begin
    tmp := Memo1.Lines[0];
    a := copy(tmp, 1, pos(':', tmp)-1);
    b := copy(tmp, pos(':', tmp)+1, length(tmp));
  end;
end;

 

В данном случае записывается только первая строка, а как сделать что бы записывались и все остальные?

 

Code:

var  i : integer;

for i := 0 to memo1.lines.count-1 do begin
  tmp := Memo1.Lines[i];
  ...
end;