var
  HTTP: TIdHTTP;
  i: integer;
begin
  // Initialize the "result"
  FReply := '';
  FSuccess := false;
  HTTP := TIdHTTP.Create;
  try
    HTTP.HandleRedirects := true;
    try
      Http.ReadTimeout := 15000;
      HTTP.ConnectTimeout := 15000;
      FReply := HTTP.Get(Format(WHOIS_LOOKUP_FORMATSTR, [FURL]));
      FSuccess := true;
    except
      on E: Exception do begin
        FSuccess := false;
        FReply := 'Keine Verbindung'; //E.Message;
      end;
    end;
    if FSuccess then begin
      // Do something with the reply here. Parse it, use it, break it, fix it,
  // trash it, change it, melt- upgrade it.
      for i := 1 to length(FReply) do
        if Pos(FReply[i], 'is a valid deliverable') > 0 then begin
          FReply := 'JA';
        end
        else
          if Pos(FReply[i], 'It was not possible') > 0 then begin
            FReply := 'NEIN';
          end;
    end;