[@Melkei]

Начал изучать делфи, делал всякий шлаг, решил сделать что то серьёзнее.
Начал делать парсер.
Делал по типу:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

Спарсил GP BP. Но! Там просто спарсить, пример:

Pars1:= Pars('<span class="badge badge-success">',HTML,'GP</span>');
Label3.Caption:=(Pars1);

Начал делать парс персонажей на аккаунте. Столкнулся с проблемой.
Парс монет прост, ибо там в одну строчку.
А вот персонажа нет. Там строк в коде много, и как быть не знаю, помогите
Пример

</tr>
			<tr>
			<td><a href="http://www.пивипивар.../players/info/1337228"><span style="color:red">*</span>НИК</a></td>
			<td>ЛВЛ</td>
			<td>
									<a href="http://www.пивипивар.../players/info/1337228">Восстановить</a>
					
					
							</td>
		</tr>
				<tr>
			<td><a href="http://www.пивипивар.../players/info/1337228"><span style="color:red">*</span>НИК</a></td>
			<td>ЛВЛ</td>
			<td>
									<a href="http://www.пивипивар.../players/info/1337228">Восстановить</a>
					
					
							</td>
		</tr>
				<tr>
			<td><a href="http://www.пивипивар.../players/info/1337228"><span style="color:red">*</span>НИК</a></td>
			<td>ЛВЛ</td>
			<td>
									<a href="http://www.пивипивар.../players/info/1337228">Восстановить</a>
					
					
							</td>
		</tr>