синхронизация потоков. циклы

[Dеlphi]

как синхронизировать потоки в многопоточном приложение, они содержат 3 вложенных цыкла:

  while ((not Terminated) and (iiil^<logs.Count)) do
  begin
  while (not Terminated) and (iiip^<pass.Count) do
  begin
  while (not Terminated) and (iiiu^<urls.Count) do
  begin
inc(iiiu^);
// КОД
  end;
      inc(iiip^);
  end;
     inc(iiil^);
  end;

нужно чтобы код выполняющийся в цикле, равномерно поделился между всеми потоками.
я синхронизировал с использованием критических секций так:

 synx.Enter;
  while ((not Terminated) and (iiil^<logs.Count)) do
  begin
  iiip^:=0;
  while (not Terminated) and (iiip^<pass.Count) do
  begin
  iiiu^:=0;
  while (not Terminated) and (iiiu^<urls.Count) do
  begin
   inc(iiiu^);
  synx.Leave;
//КОД
  synx.Enter;
  end;
      inc(iiip^);
  end;
     inc(iiil^);
  end;
  synx.Leave;

но при нескольких потоков в цикле код выполняется больше чем нужно раз.
как правильно синхронизировать такой алгоритм?