Prüfen ob eine URL erreichbar ist (kein Download)

[Nalincah]

Warum sagt der bei mir "Undefinierter Bezeichner: 'responseStream'??
Hab neues Projekt gemacht mit IdHTTP1, Edit1 und Button1.In Button1 hab ich deinen Source drin:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdHTTP1.Get(edit1.text, responseStream);
  except
    on EIdHTTPProtocolException do
      ausgabe:='Fehler!'+#13#10 + IdHTTP1.ResponseText;
  end;//try
end;