Работа со строками

var
L_L :TStringList;//Описываем
//Создаём
L_L :=TStringList.create;
//Загружаем
L_L.LoadFromFile('имя фашего файла');
//Потом берём строку. скажем S_S и копируем содержимое туда
S_S:= L_L.text;

Go:= true;
While Go do begin
 
//Вот тут делаем анализ
~~~~~~~~~~~~~~~~
end;

Pos1:= PosEx('<Project',S_S,Pos2);//Ищем подстроку '<Project' в строке S_S, начиная с позиции Pos2

if pos1 = 0 then begin
                          Go:= false;//Создаём условие выхода
                          Cоntinue;
                      end;

Uses StrUtils; //Подключаем модуль
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pos2:=1;
Go:= true;
While Go do begin
//Ищем подстроку '<Project' в строке S_S, начиная с позиции Pos2 
Pos1:= PosEx('<Project',S_S,Pos2);
if pos1 = 0 then begin
                          Go:= false;//Создаём условие выхода
                          Cоntinue;
                      end;
end;

//Мы закончили на позиции Pos1, с неё и продолжаем поиск
Pos2:= PosEx('</Project',S_S,Pos1);

Нашли конец. 
Поскольку нам нужен тег целиком, а в нём 10 символов, то тогда так
Pos2:= PosEx('</Project',S_S,Pos1) + 10;

//Вырезаем фрагмент
F_F:=Copy(S_S,Pos1,Pos2-Pos1);

Uses StrUtils; //Подключаем модуль
 
var
L_L :TStringList;//Обьявляем список
 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
//Создаём
L_L :=TStringList.create;
//Загружаем
L_L.LoadFromFile('имя фашего файла');
//Потом берём строку. скажем S_S и копируем содержимое туда
S_S:= L_L.text;
 
 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
NF:=0;//Инициализируем счётчик найденных структур
Pos2:=1;
Go:= true;
While Go do begin
//Ищем подстроку '<Project' в строке S_S, начиная с позиции Pos2 
Pos1:= PosEx('<Project',S_S,Pos2);
if pos1 = 0 then begin
                          Go:= false;//Создаём условие выхода
                          Cоntinue;
                      end;
//Мы закончили на позиции Pos1, с неё и продолжаем поиск
//Нашли конец. 
//Поскольку нам нужен тег целиком, а в нём 10 символов, то тогда так
Pos2:= PosEx('</Project',S_S,Pos1) + 10; 
 
//Вырезаем фрагмент
F_F:=Copy(S_S,Pos1,Pos2-Pos1);
 
//Копируем фрагмент в список
L_L.Text:=F_F;
 
NF:= NF+1;//Это будет номер сохраняемого файла
//Сохраняем файл
L_L.SaveToFile('F_'+ IntToStr(NF)+'.xml');
 
end;