Laço While...do - Desvio condicional

TbItenss.First;
While Not TbItens.eof do
begin

//aqui é a parte q coloco todos os campos no qreport para 
//imprimir etiquetas q é muito extenso por isso não coloquei aí
// tá então qdo chega na ultima etiqueta e vizualiza

QReport1.Preview;

//eu faço essa verificação para ver se a qtde de etiquetas bateu com 
//a qtde de itens

if WQual < WQta then
 begin
     TbItens.Next;  //e se não bateu eu subo novamente mas sem trocar
                          //o item para q eu imprima tb e depois continua daí
     continue;
 end;
end;
TbItens.Next;
end;