Iniciar serviço com barra de progresso

Olá :D, Alguem sabe como eu posso fazer o delphi iniciar um serviço e exibir uma barra de progresso, enquanto ele efetua a ação

Estou ativando o serviço do mysql assim:

WinExec(´Net Start MySQL,sw_hide);

Mais não sei como mostar na barra o progresso da ação :(

Alguem pode me ajudar???