Fórum problema no loop #348460

var
//http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20421786.html?qid=20421786
 Doc: IHTMLDocument2;
 I: Integer;
 Element: OleVariant;
 Elements: IHTMLElementCollection;

  ResultSubs,ValueCheck : string;
 check,result : boolean;
begin
Doc := Wb.Document as IHTMLDocument2;
  Elements := Doc.All;
for I := 0 to Elements.length - 1 do
   begin
      check       := false;
      result      := false;
      ValueCheck  := ´´ ;
      ResultSubs  := ´´;

      Element := Elements.item(I, varEmpty);

          if (UpperCase(Element.tagName) = ´INPUT´) and (UpperCase(Element.Type) = ´CHECKBOX´) then
          begin
              if (Element.Checked = true) then
              begin
                check      := true;
                ValueCheck := Element.value;
                //ShowMessage(´CheckBox: ´ + Element.value);
              end;
          end
            else
              // edit responável pelo resultado da substancia escolhida
              if (UpperCase(Element.tagName) = ´INPUT´) and (UpperCase(Element.Type) = ´TEXT´) then
              begin
                if (Element.value <> ´´) then
                begin
                  result     := true;
                  ResultSubs := Element.Value
                  //ShowMessage(´edit: ´ + ResultSubs);
                end;
              end;
       
        // problema aqui... nao ta inserindo no clientdataset
        if (check=true) and (result=true) then
        begin
          cdsSubstancias.Open;
          cdsSubstancias.Insert;
          cdsSubstanciasID.AsInteger        := StrToInt(ValueCheck);
          cdsSubstanciasResultado.AsString  := ResultSubs;
          cdsSubstancias.Post;
        end;
   end;
end;