IsValidURL: Testen, ob URL über HTTP erreichbar ist

[PeterPanino]

Hallo! Ich möchte in Delphi XE2 auf möglichst einfache und schnelle Weise testen, ob ein String eine über HTTP erreichbare URL darstellt: Ich habe dafür folgenden Code geschrieben:

Delphi-Quellcode:

uses ... IdHTTP;

function IsValidURL(const AURL: string): Boolean;
var
  ThisIdHTTP: TIdHTTP;
  strDummy: string;
begin
  Result := True;
  ThisIdHTTP := TIdHTTP.Create(nil);
  try
    try
      strDummy := ThisIdHTTP.Get(AURL);
    except
      Result := False;
    end;
  finally
    ThisIdHTTP.Free;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if IsValidURL(edt1.Text) then
    ShowMessage('This URL is valid')
  else
    ShowMessage('This URL is NOT valid');
end;

Oder gibt es eine einfachere/schnellere Möglichkeit?

Edit 27.03.2013 10:43: Eigentlich sollte die Funktion IsURLReachable heißen, denn das ist genau das, was sie tut: Prüfen, ob die URL über HTTP erreichbar ist.