Usando COMPAC para compactar no Delphi

Qual o comando para compactar uma tabela com o COMPAC do ms-dos, ou seja, clicando em o botão ele compacte a tabela e clicando em outro descompacte.

Grato