[v1s2222]

Код:

USES STRUTILS; //!
procedure TForm1.Button1Click(Sender: TObject);
var
  s,g:string;
  buf: integer;
begin
  s:=IdHTTP1.Get('http://www.gametracker.com/search/cs/60/?searchipp=50#search');
  buf := pos('<span class="ip">',s);
  While(buf > 0) do begin
    g:=copy(s,buf+length('<span class="ip">'),pos('</span><span class="port">',s)-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);
  end;
end;