ProgressBar arquivo de lote (.bat)

Pessoal

estou com o seguinte problema

eu tenho um sistema desenvolvido em delphi 7 para fazer backup do banco de dados (MSDE)
Esse sistema funciona da seguinte forma:

ele cria um teste.bat
insere o script do backup dentro desse arquivo
executa esse teste.bat (invisivel)

eu gostaria de ficar monitorando atraves de um progressbar o progresso desse teste.bat

o meu codigo esta abaixo;

c vcs tiverem uma solução melhor para o meu problema por favor me ajudem


AssignFile(arq,´C:\teste.bat´);
rewrite(arq);
Write(arq,´osql -E -Q´BACKUP DATABASE BDFER TO DISK=´´´+edtDestino.text+´´´´);
CloseFile(arq);
ShellExecute(0,´open´,Pchar(´C:\teste.bat´),nil,nil,SW_HIDE);
XPMessageDlg(´Backup concluído com exito´,mtInformation,[mbok]);
DeleteFile(´C:\teste.bat´);

Grato

Henry