procedure TForm1.Button1Click(Sender: TObject);
var
  fn: TFileName;
  fs : TFileStream;
begin
  fn := 'C:\download.htm'; // Datei, in der gespeichert werden soll
  fs := TFileStream.Create(fn, fmCreate); // Übertragungsleitung für die Datei
  try
    try
      IdHTTP1.Get('http://www.google.de', fs); // Herunterladen der Datei, mit der die Domain
                                               // verknüpft ist, über den Kanal fs
    except
    end;
  finally
    FreeAndNil(fs); //den Kanal freigeben
  end;
end;

// uses WinInet, idHTTP;

function UrlExists(sUrl: String; bAllowRedirects: Boolean = false): Boolean;
begin
  with TidHTTP.Create(nil) do
  try
    HandleRedirects := bAllowRedirects;
    Head(sUrl);
    Result := Response.ResponseCode = HTTP_STATUS_OK;
  finally
    Free;
  end;
end;