Как "перевернуть" алгоритм процедуру?

[bakanaev]

Есть такая вот функция

Procedure IsolateText( Const S: String; Tag1, Tag2: String; list: TStrings );
var pScan, pEnd, pTag1, pTag2: PChar; foundText: String;searchtext: String;
begin
  searchtext := Uppercase(S);
   Tag1:= Uppercase( Tag1 );
    Tag2:= Uppercase( Tag2 );
     pTag1:= PChar(Tag1);
      pTag2:= PChar(Tag2);
      pScan:= PChar(searchtext);
  repeat
  pScan:= StrPos( pScan, pTag1 );
    if pScan <> Nil then
      begin
       Inc(pScan, Length( Tag1 ));
        pEnd := StrPos( pScan, pTag2 );
        If pEnd <> Nil then
           begin
            SetString( foundText,
            Pchar(S) + (pScan- PChar(searchtext) ),
            pEnd - pScan );
            list.Add( foundText );
            pScan := pEnd + Length(tag2);
           end
       else
      pScan := Nil;
    end;
  Until pScan = Nil;
end;

Она парсит значения , которые находиться между Tag1, и Tag2, и добавляет все отпарсеное в стринглист)
Например если на сайте есть структура вроде
<name>Nick1</name>
<name>Nick2</name>
<name>Nick3</name>
то вызвав IsolateText(html_code ,'<name>', '</name>',list), у нас в листе ,будит вот это
Nick1
Nick2
Nick3

Но мне надо что бы функция начинала парсинг не сначала текста а с конца. Т.е есть у нас текст
<name>Nick1</name>
<name>Nick2</name>
<name>Nick3</name>
в результате должно получиться
Nick3
Nick2
Nick1
Как ее переделать я не знаю, т.к. не могу понять алгоритм.
Прошу помощи более опытных

[Аватар]

Вместо
list.Add( foundText );
использовать
list.Insert(0,foundText);

При условии, что list не просто TStrings, а его наследник с неабстрактным методом Insert

[phomm]

А что обычным циклом с обменом значений (первый с последним второй с предпоследним) никак ? Вызываете эту свою процедурку, а потом ещё таким циклом всё переворачиваете и всё. Можете всё вместе ещё в некую процедурку обернуть.

УПД. у Аватар'a решение поэлегантнее )) я просто в код даже не вчитывался ) но, думаю, для лучшей расширяемости можно добавить параметр (передать в процедуру, например, некий boolean) и в зависимости от него выбирать одно из направлений заполнения. Мой вариант, тоже в принципе так же расширяем, но основная функция будет не затронута, а проверка будет перед циклом (если true - вызывать цикл переворота).