[Casimiro Notevi]

Pues si allí dices que te funciona perfectamente, aquí tiene que funcionar igual de perfectamente porque es lo mismo, es que es la misma pregunta.

En lugar de:

Código Delphi [-]
case nCopias of     
  1: lblTipoCopia.Caption := 'Original';     
  2: lblTipoCopia.Caption := 'Duplicado';     
  3: lblTipoCopia.Caption := 'Triplicado';     
  4: lblTipoCopia.Caption := 'Cuadruplicado';   
end;    
Inc(nCopias);

Sería esto:

Código Delphi [-]
case nCopias of    
  1: lblTipoCopia.Caption := '1';    
  2: lblTipoCopia.Caption := '2';    
  3: lblTipoCopia.Caption := '3';    
  4: lblTipoCopia.Caption := '4';  
end;  
Inc(nCopias);

O resumiendo:

Código Delphi [-]
lblTipoCopia.Caption := inttostr(nCopias);

Debería de combinar ambos hilos porque es lo mismo, como dije antes.