Типизированый файл

[Sina]

Вот работаю щас над прогой, в которой информация заносится в тип файл и потом выводится из него, столкнулась с проблемой, у меня по при старте работы с программой она в лист боксе1 выводит фамилии, потом при щелчке на лискт бокс1 в лист боксе 2 отображаются изданияю газет которые выписывает эта фамилия. Проблема такая, он не правильно отображает инфу в изданиях. Кому какие издания пренадлежат определяется правильно, но вот как я щелкаю на издание и информация из него должна выводится в эдиты он выводит не ту инфу, помогите ПОЖАЛУЙСТА!!

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;{Очистка едитов и мемо в которые будет выводится информация из файла}
Edit3.Clear;
Edit4.Clear;
memo2.Clear;
memo1.Clear;
edit5.Clear;
Button4.Enabled:=true;
button7.Enabled:=true;


{Открытие и чтение первого файла, и добавление его частей в эдиты и мемо}
reset(s1);
seek(s1,listbox1.ItemIndex) ; {В текстовом файле переход на название из лист бокса 1}
read(s1,q1);
edit1.Text:=q1.Fio;
edit2.Text:=q1.Nomer;
edit3.Text:=q1.kolizdan;
memo2.Text:=q1.adr;
closefile(s1); {Закрытие файла}

{Открытие и чтение второго файла}
assignfile(s2,'D:\Izdanie.dat');   {Установка связи}
if not fileexists('D:\Izdanie.dat') then rewrite(s2) else
reset(s2);{Если файл есть то ресет если нет то реврайт}
if FileSize(s2)=0 then exit {Проверка на заполненость файла}
else


{Добавление изданий во второй лист бокс}
reset(s2);
listbox2.Clear;
while not eof(s2) do begin {Цикл для полного прочтения файла}
read (s2,q2);
if q2.Fio=edit1.Text then begin
listbox2.Items.Add(q2.Nizdan);  {Добавление в лист бокс 2 итемов с названием как у издания}

procedure TForm1.ListBox2Click(Sender: TObject);
begin
Edit4.Clear;
{Установка связи с файлом}
assignfile(s2,'D:\Izdanie.dat');
{Если есть то ресет если нет то реврайт}
if not fileexists('D:\Izdanie.dat') then rewrite(s2) else
reset(s2);
{Проверка на заполненость файла}
if filesize(s2)=0 then exit
else
{Поиск по итемам из лист бокса 2}
seek(s2,listbox2.ItemIndex);
read(s2,q2);
{Добавление переменых из файла в едиты и мемо}
edit4.Text:=q2.Vizdan;
memo1.Text:=q2.Mes;
edit5.Text:=q2.Fio;

closefile(s2);  {Закрытие файла}

Полная программа:
_http://ifolder.ru/15337428

[Sina]

Помогите пплиззз, вот в чем ошибка:

Вот я ввел 2 пользователей, ввожу 3 издания у первого он их отлично отображает и инфу с них, вот ввожу другие 3 издания у втого пользователя он отображает названия изданий в лист боксах нормально, но информацию он мне берет не из 3 изданий второго пользователя а из 3 изданий первого