Открытие файла,разделение.

[Kukkk]

Пытаюсь написатьпрограмму,которая бы могла работать с файлами,содержащими списки icq и проли к ним. Уже 2-й день не могу написать цикл,пожалуйста помогите.
Структура файла:
номер;нароль
номер;пароль
....

Цикл должен из файла вынуть в лейбл пароль,а в другой лейбл номер,причем при втором вызове цикла номер с паролем уже должны из следующей строчки файла выниматься,вот что я смог наработать:

var
L: TextFile;
c:char;
begin
while not Eoln(f) do ///Пока не конец строки в файле F
  begin
    read(f,c);  ///Читаем символ из файла F
    if c=(';') then   ///Если этот символ-; то
    begin
       while not Eoln(f) do  ///Пока не конец ф
       begin
        read(f,c);    ///Читаем символ из файла ф, причем читаем специально чтобы пропустить F
        label2.Caption:=label2.Caption+c; ///Добавляем это в лейбл
       end;
    end;
    if not (c=(';')) then  /// Если символ не ; то
    begin
      Label1.Caption:=(Label1.Caption)+c;  ///Добавляем его в 1-й лейбл
    end;
  end;
end;

Но в моем цикле почему-то при открытии файла в 1 лейбл вводится 1-я часть до ; и последний символ из второй части.А во второй лейбл выводится все как надо.
Пожалуйста,помогите,прям не знаю что с этим делать((

Вот для большей понятливости выкладываю исходники
http://stream.ifolder.ru/3416474

[mutabor]

приведи пример как это выглядит в файле, и что надо скопировать

[SERG1980]

Тут заносится в мемо но переделать не проблема

procedure TForm1.Button1Click(Sender: TObject);
VAR f:textfile;
s:string;
begin
assignfile(f,'D:\1.txt');
reset(f);
while not EOF(f) do
begin
readln(f,s);
memo1.Lines.Add(copy(s,1,pos(';',s)-1));
memo2.Lines.Add(copy(s,pos(';',s)+1 ,length(s)-pos(';',s)));
end;
closefile(f);
end;

[Kukkk]

Огромное спасибо! Вы меня спасли,чтоб я без вас делал!