Pesquisar na Comunidade

Faço um backup pelo winrar e queria que o sistema só apresentasse a mensagem quando ele terminar de processar: como posso fazer ? esse é o meu codigo: Empresa := copy(FrmPrincipal.PnEmpresa.Caption,1,3); if DirectoryExists(TxtSalvar.Text) then begin dtmIza.dbaIza.Connected := False; DtmEmp.DbaEmp.Connected := False; Banco := 'C:\IzaCfc\Bancos'; Copia(Banco,'C:\IzaCfc\Backup'); Banco := 'C:\IzaCfc\Backup'; Data := Date; Nome := 'BK'+Empresa+'-'+ FormatDateTime('dd-mm-yy', Data); Caminho := ChangeFileExt(TxtSalvar.Text+'\'+Nome,'.rar'); if FileExists('C:\IzaCfc\Backup\' + Nome + '.rar') then begin DeleteFile('C:\IzaCfc\Backup\' + Nome + '.rar'); end; if not DirectoryExists('C:\Program Files (x86)\WinRAR\') then begin if not DirectoryExists('C:\Program Files\WinRAR\') then begin ShowMessage('WinRAR não localizado !'); exit; end else begin LinhadeComando :='C:\Program Files\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"'; end; end else begin LinhadeComando :='C:\Program Files (x86)\WinRAR\WINRAR.EXE a "'+Caminho+'" "'+Banco+'"'; end; try WinExec(Pchar(LinhadeComando),sw_hide); ShowMessage('Backup Gerado com Sucesso!'); dtmIza.dbaIza.Connected := True; DtmEmp.DbaEmp.Connected := true; close; except ShowMessage('Erro ao gerar Backup!'); end; end else begin Showmessage('Diretório Inexistente!' ); end;