delphi 7 mascara no inputbox

COMO FAÇO PARA POR MASCARA NO INPUTBOX NISTO :
InputBox(''''Atenção'''',''''Digite o CNPJ conforme Cadastro da Empresa'''','''''''');
PRA TIPO QUANDO EU COLOCAR O CNPJ JÁ IR COLOCANDO PONTO E BARRA TIPO ISSO :
00.000.000/0000\-00