[telas]

Запутался с вложенным циклом for.
Требуется чтобы из listboxa lbq.Items бралось первое значение и первое значение из addwordslb, потом
lbq.Items опять первое, а addwordslb - второе и т.д. Загвоздка в том что это делается, но когда берется второе значение из addwordslb, парсинг не идет с первой страницы, а продолжается с того места где закончился с первым значением addwordslb. Вот как это решить?

Код:

procedure TfrmMain.StartParsClick(Sender: TObject);
var i,j,s,a,k:integer;
s1:string;
begin
proxy;
pagenumber:=1;
j:=1;      a:=0;
 
 
         for i:=0 to  lbq.Items.Count - 1 do
         for k:=0 to addwordslb.items.Count-1 do
       begin    pagenumber:=1;
       //showmessage('!');
          while pagenumber <> 0 do
           begin
            s:=j*100;
            s1:= 'http://www.google.com/ie?q='+(lbq.Items[i])+'+'+(addwordslb.Items[k])+'&&num=100&&hl=en&start='+inttostr(s-100)+'&&sa=N';
            //showmessage(s1);
            dd.Navigate(s1);
            //http://www.google.com/ie?q=2&num=100&hl=en&start=300&sa=N
            while  dd.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
              parsing;
              nextpage;
              inc(j);
              lplabel.Caption:=Inttostr(lblp.Items.count);
            end;
            
        end;
end;

Если нужно выложу весь проект.