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.