Pegar dados do site da receita.

Olá amigos estou usando esta função para pegar os dados do site da: http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp   Esta função peguei do forum mas parece que meu sistema não reconhece o ('FORM'), será que alguem pode me dar uma ajuda, já olhei uns topicos no forum mas não consegui nada.   E tambem como pegar os dados do site.   Muito obrigado.       function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);     for j := 0 to FormItem.Length - 1 do
    begin
      try
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
       // Exit;
      end;
    end;
  end;
end; procedure TClientesCadImpWeb.BitBtn1Click(Sender: TObject);
begin
FillForm(WebBrowser, 'cnpj', '733334679' );
end;