[v1s2222]

Код:

uses StrUtils;

var
  buf: Integer;
...
buf := pos('<span class="ip">',s); 
While(buf > 0) do begin
g:=copy(s,pos('<span class="ip">',s)+length('<span class="ip">'),pos('</span><span class="port">',s)-pos('<span class="ip">',s)-length('<span class="ip">'));
Memo1.Lines.Add(g + ':27015');
Memo1.Lines.Add(g + ':27016');
Memo1.Lines.Add(g + ':27017');
  buf := PosEx('<span class="ip">',s, buf+1); 
end;

Если где-то не ошибся.