Executando arquivo tipo .bat no delphi XE2

Tenho uma procedure que executar um arquivo . bat e o mesmo me grava um arquivo de log que leio o conteúdo logo em seguida, só que ocorre que me gera uma mensagem de erro informando que o arquivo esta em uso, já tentei algumas formas de contorno o problema sem sucesso,
Agradeço se alguém puder ajudar.

procedure TfrmPrincipal.ExecutaBat;
var
arquivo :string;
begin

If (FileExists('C:\geramd5_' + nomearquivo + '.bat')=True) Then
Begin
arquivo := 'C:\geramd5_' + nomearquivo + '.bat' ;
ShellExecute(handle,'open',PChar(arquivo), '','',SW_SHOWNORMAL);
end;
end;