[demon-sheff]

Доброго времени суток. Уважаемые профессионалы, подскажите пожалуйста как можно реализовать следующее: у меня есть папка куда скидываются xml файлы и архивы с ними. Я уже реализовал поиск файлов и отправку их в мемо. Не могу понять почему он выдает только последнее совпадение со строчкой.

делаю все так

Код:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 j,i:integer;
 sa,st:shortstring;
 begin
   for i:=0 to Memo4.Lines.Count-1 do begin
    if (Pos('package_n_',Memo4.Lines.Strings[i])<>0)
   then  begin
      St:=Copy(Memo4.Lines.Strings[i],11,length(Memo4.Lines.Strings[i])-12);
      Memo5.Lines.Add(st);
       end;
      for j:=0 to Memo6.Lines.Count-1 do begin
    if (Pos('req_',Memo6.Lines.Strings[j])<>0)
   then  begin
      Sa:=Copy(Memo6.Lines.Strings[j],5,length(Memo6.Lines.Strings[j])-6);
      Memo7.Lines.Add(sa);
       end;
end;
 end;
       begin
       for i := 0 to memo5.lines.Count - 1 do
         if memo5.Lines.Strings[i]=memo7.Lines.Strings[j] then
         memo8.Lines.Add(st);
         for j := 0 to memo7.Lines.Count - 1 do
           if memo7.Lines.Strings[j]=memo5.Lines.Strings[i] then
         memo8.Lines.Add(sa);
       end;
 end;

а в итоге