ContentControls zufällig befüllen

[Pader1305]

Hallo Zusammen,

ich schreibe gerade ein Analysetool, um herauszufinden, ob normale Textmarken oder Content Controls schneller sind.
Nun möchte ich die Content Controls zufällig befüllen lassen und habe dies mit folgender Schleife umgesetzt.

Delphi-Quellcode:

while lLoop < 51 do
        begin
        lRandom := RandomRange(1,100);
        if lWordInstanz.ContentControls.Item(lListeMarken[lRandom]).Range.Text = 'Test' then
          begin
            continue;
          end
        else
          begin
            lWordInstanz.SelectContentControlsByTag('CC' + IntToStr(lRandom)).Item(1).Range.Text := 'Test';
            lLoop := lLoop +1;
          end;
        end;

Allerdings befüllt er nie 50 Felder, sondern immer weniger. Weiß jemand auf die Schnelle woran es liegen könnte?
Über jede Hilfe würde ich mich sehr freuen!