abrir e fechar form automaticamente no delphi

boa tarde, estou com o seguinte problema:

Executo um showModal de um form principal e no evento onActivate do formulario chamado insiro o seguinte código

frmIntegraSaga.Update;
sleep(3000);

pnlStatus.Caption := 'Enviando email de confirmação de integração!!!';
frmIntegraSaga.Update;
// sleep(2000);

STP_ENVIA_INTEG_SAGA_EXPORT_SF.Params[0].Value := tmp_ordemcarga;
STP_ENVIA_INTEG_SAGA_EXPORT_SF.ExecProc;

Db_Saga.close;

QryCabPedido.Close;
QryItePedido.Close;
INT_ORDENTSAI.close;
INT_ITMORDENTSAI.Close;



frmIntegraSaga.close;

o comando close não executa, o pode ser?