[v1s2222]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s,g:string;
  buf: integer;
  x: integer;
begin
  s:=IdHTTP1.Get('http://www.gametracker.com/search/cs/60/?searchipp=50#search');

  buf := pos('<span class="ip">',s);
  x := pos('</span><span class="port">', s);
  While(buf > 0) and (x > 0) do begin
    g := Copy(s, buf+length('<span class="ip">'), x-buf-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);
    x := posEx('</span><span class="port">', s, x+1);
  end;
end;

Сейчас все правильно вроде.
ЗЫ Говорил же, могу ошибиться, т.к. на коленке писал.
ЗЫЫ Код можно еще упростить, если надо