1:
2:
3:
4:
5:
6:
7:
8:

<tbody>
    <tr class="rc_table_detail_alternative">
      <th style="width: 100%;">
                  Krid P - Bagpipes
              </th>
    </tr>

  </tbody>					

1:
2:
3:
4:
5:

<tr class="rc_table_detail_alternative">
      <th style="width: 100%;">
                  <a href="/release/various-artist/66/jump-bump-e-p-vol-5/">Interactive - Dildo 2008</a>
              </th>
    </tr>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  .
  .
  .
  TrackPicStart := '/">';
  TrackPicEnd := '</a>';
  AText.Text := idhttp1.Get('http://www.technobase.fm/tracklist.php');

  for i:= 0 to AText.Count -1 do
  begin
  // search track start sequence
  FoundPos := Pos(TrackPicStart, AText.Text);
  if FoundPos = 0 then
    Exit;
  CurrentText := @AText.Text[FoundPos + Length(TrackPicStart)];
  // search track end
  FoundPos := Pos(TrackPicEnd, CurrentText);
  if FoundPos = 0 then
    Exit;
  ATrack := Copy(CurrentText, 1, FoundPos - 1);
  AText.Text := CurrentText;
  . 
  .
  .