Como embutir e extrair arquivos no Delphi

Fala galera tive que mudar alguns parâmetros nas chamadas para deixar mais legível para vocês, então ficou assim:
TDiretorio.Action.Parametros(Diretorio,IdentificacaoArq,NomeArq).Extrair;

✅Link para Download:
https://4br.me/Controller_ExtrairArquivos

✅Página do facebook Atualizado 2022
https://www.facebook.com/twtutoriais2020

✅Grupo do whatsapp fixado na página inicial do canal.

✅Meu site atualizado 2022
https://tw-tutoriais.webnode.com/

========================================================================
💥👌LIVE TODOS OS DIAS👌💥
✅Plataforma de live
https://trovo.live/tw_gameryt

Pra quem curti GamePlay só seguir minha página de game play no Facebook e no Youtube:
✅FACEBOOK – TW_GAMERyt
https://www.facebook.com/TW_GAMERyt-102090708357665

✅YOUTUBE – TW_GAMERyt
😉Meu novo canal de GamePlay😉
https://www.youtube.com/channel/UCta4FguVMVZwGNktOUmQGZw

✅SEJA MEMBRO DO CANAL E TENHA ACESSO HÁ VÁRIOS
BENEFÍCIOS
https://www.youtube.com/channel/UCxoHA_JpPhutre4NunZ542g/join

✅DOAÇÃO PARA O CANAL
https://tw-tutoriais.webnode.com/doacao-para-o-canal/