Пинг и парсинг сайта

procedure TForm1.btn1Click(Sender: TObject);
var
 P: Integer;
 S: String;
begin
mmo1.Clear;
mmo1.Lines.Text:=IdHTP1.Get('http://test-11111.ucoz.ru/');
mmo1.Lines.Delete(0);
S := mmo1.Lines.Text;
P := Pos(' ', S);
edt1.Text := Copy(S, 0, P-1);
end;

  try
    IdHTTP1.Get('http://fanckcs.ru/');
  except
    ShowMessage('Сайт не доступен либо не подключен интернет!');
  end;

// Удобная функция для парсинга
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;
 
procedure TForm4.Button1Click(Sender: TObject);
var
 S: String;
begin
  try
    mmo1.Clear;
    mmo1.Lines.Text:=IdHTP1.Get('http://test-11111.ucoz.ru/');
    S := Pars('"',mmo1.Text,'" numbers"'); // Функция парсинга
    edt1.Text := S;
  except
    ShowMessage('Сайт не доступен либо не подключен интернет!');
  end;
end;

 S := Pars('"',mmo1.Text,'" numbers"'); // Функция парсинга