Problemas com WebBrowser

procedure TFMImporta.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
    if pag_resultado=false then
       begin
        WebBrowser1.OleObject.document.all.item(´txtPISPASEP´,0).value:=DataModule1.ADOImportadosimp_nis.Value;
        WebBrowser1.OleObject.document.all.item(´ButConsultar´,0).click;
        pag_resultado:=true;
       end
 else
    if pag_resultado=true then
    begin
      while not DataModule1.ADOImportados.Eof do
        begin
        try
          begin
            memo2.Text := WebBrowser1.OleObject.Document.documentElement.innerText;
            DataModule1.ADOEstoque.Append;
            DataModule1.ADOEstoqueest_nome.Value:=Procura(´Nome´);
            DataModule1.ADOEstoqueest_nis.AsString:=Procura(´NIS´);
            DataModule1.ADOEstoqueest_d_nasc.AsString:=Procura(´/´);
            DataModule1.ADOEstoqueest_mae.Value:=Procura(´Nome da mãe´);
              if Procura(´Município´)=´  ´ then
                  DataModule1.ADOEstoqueest_municipio.Value:=´Não informado´
               else
                  DataModule1.ADOEstoqueest_municipio.Value:=Procura(´Município´);
                  DataModule1.ADOEstoque.post;
                  AddNisOK(´NIS:´ + Procura(´NIS´) + ´ adicionado com sucesso´);
                  Gauge1.Progress:=Trunc((DataModule1.ADOImportados.RecNo*100)/DataModule1.ADOImportados.RecordCount);
                  DataModule1.ADOImportados.Next;
                  importa;
          end;
        except
        begin
            AddNisDuplicado(´NIS ´ +  Procura(´NIS´) + ´ já existente´);
            DataModule1.ADOImportados.Next;
        end;
      end;
  end;
  lbComando.Caption:=´Importação Concluída. Aguardando nova ação´;
  end;
end;

function TFMImporta.Procura(Atributo: String): String;
var
  i, Posicao: integer;
  texto: string;
begin
  result:=´´;
  i:=0;
  while i < Memo2.Lines.count - 1 do
  begin
    texto:=Memo2.Lines[i];
    Posicao:=Pos(Atributo,Texto);
    If Posicao > 0 then
      begin
        if Atributo = ´NIS´ then
          begin
            Result:=Copy(Texto, pos(´:´,Texto) + 2 ,11);
            break;
          end else
        if Atributo = ´/´ then
          begin
            Result:=Copy(Texto, pos(´/´,Texto) -2 ,Length(Texto) + 1);
            break;
          end else
        if Atributo = ´Município´ then
          begin
            Result:=Copy(Texto, pos(´:´,Texto) + 2, pos(´UF:´, Texto));
            break;
          end else
          begin
            Result:=Copy(Texto, pos(´:´,Texto) + 2, Length(Texto) + 1);
            break;
         end;
    i:=i + 1;
  end;
end;
end;