[Gudzik11]

Здравствуйте ! помогите пожалуста . Нужно выташить все значения между тэгами <div> </div> из масива

    <tdclass="first">Давление,ммрт.ст.</td>
    <tdclass="wni_left">
    <div><div>
    747</div></div>
    </td>
    <td>
    <div>
    747</div>
    </td>
    <td>
    <div>
    746</div>
    </td>
    <tdclass="wni_right">
    <div><div>
    745</div></div>
    </td>
    </tr>

делаю так

Код:

    // Давление,ммрт.ст.
            text1:= Copy(text,Pos('<td class="first">Давление,ммрт.ст.</td>',text),Pos('<tr class="wnow_info no_bg">',text)-Pos('<td class="first">Давление,ммрт.ст.</td>',text));
            DeleteSymbol(text1, ' ');
     
            lin1:=1;
            while (pos('<div>',text1)>0) do
            begin
     
             first[lin,lin1]:=extract(text1,'<div>','</div>');
             delete(text1,1,pos('</div>',text1));
             lin1:=lin1+1;
            end;

находит на одно значение больше

    
<div>747
    747
    747
    746
<div>745

как правильно сделать ?