Marcelo bil

Olá, como o post ainda está aberto, segue uma dica aFonte := de 1 a 9 aSubFonte :=0 IF aFonte >9 then Begin aFonte:=9; aSubFonte :=aFonte-9; End; Assim voce pode permitir que o usuário informe uma Fonte de 1 a 9 normal e na mesma fonte de 10 a 999 Fica a dica

EmBarbosa e demais companheiros, antes de mais nada agradeço a presteza na resposta. Depois de testar todas as opções que encontrei, achei o que eu precisa. Vou deixar uma imagem aqui para demonstrar como ficaram minhas procedures de Compactar e Descompactar Só lembrando que esse modelo, faz com que o Zipado fique com os arquivos SEM a path do mesmo. ou seja, eu posso fazer uma lista de arquivos de diversos locais, ir adicionando num stringlist e por ultimo eu utilizo essa procedure. Ficou perfeito para o que eu necessito. Muito obrigado. Imagem.bmp