Fórum o QUE FALTA POIS TENHO MSG DE FILE NOT FOUND ERROR I/O 32 #186426

Pessoal tenho o segunte clico em um botao para gerar uma tabela a partir de arquivos texto que possuo estes arquivos sao agrupados em um .bat que depedendo da escolha é executado como segue o codigo abixo o problema é apos ele voltar do .bat na primeira vez qdo pego o nome do arquivo dá msg de file not found ai clico novamente em meu botao e o programa sai gerando o que preciso as vezes alem de file not found da msg de erro i/o 32, ai clico novamente e le faz creio que falta desligar alguem por eu estar fazendo chamada ao shellexecute ??? podem me dar um help


procedure TForm1.Button1Click(Sender: TObject);
var
Tfarquivo : TextFile;
StrRegistro : String;
tipo2,tipo : String;
tabela : Ttable;
Arq : TextFile;
NomeDoArquivo : String;
contador : Integer;
begin
with tblitemlojas do zero a tabela antes de começcar a gera-la
begin
active:=false;
databasename :=´lasa´;
tablename:=´Lasadet.DB´;
tabletype:=ttparadox;
emptytable;
active:=true;
end;

// ShellExecute(Handle, ´Open´, ´L:\gera9txt.bat´, ´´, ´´, SW_SHOW )
// funciona dos dois jeitos com Shell ou Winexec

if RgArq.ItemIndex = 0 then
begin
if Rgdepto.ItemIndex = 0 then
ShellExecute(Handle, ´Open´, ´L:\gera9337.bat´, ´´, ´´, SW_hide )
else
if Rgdepto.ItemIndex = 1 then
ShellExecute(Handle, ´Open´, ´L:\gera4337.bat´, ´´, ´´, SW_hide )
else
if Rgdepto.ItemIndex = 2 then
ShellExecute(Handle, ´Open´, ´L:\gera5337.bat´, ´´, ´´, SW_hide )
else
if Rgdepto.ItemIndex = 3 then
ShellExecute(Handle, ´Open´, ´L:\gera337.bat´, ´´, ´´, SW_hide )
else
raise Exception.Create(´Nenhum Departamento foi selecionado´);
end;

A TABELA TBLITEMLOJAS É QUEM ESTA SENDO GERADA
O ARQUIVO .TXT FOI GERADO ATRAVES DO .BAT RODADO LA EM CIMA

tblitemlojas.Open;
tblitemlojas.first;
tblitemlojas.edit;
if Rgdepto.ItemIndex = 0 then
AssignFile (tfarquivo, ´L:\deptopv9.txt´)
else
if Rgdepto.ItemIndex = 1 then
AssignFile (tfarquivo, ´L:\deptopv4.txt´)
else
if Rgdepto.ItemIndex = 2 then
AssignFile (tfarquivo, ´L:\deptopv5.txt´)
else
if Rgdepto.ItemIndex = 3 then
AssignFile (tfarquivo, ´L:\geralpve.txt´)
else
raise Exception.Create(´Nenhum Departamento foi selecionado´);

Reset (tfarquivo); //abre arq. para leitura
contador :=0;
While not eof(tfarquivo) do
begin
Readln(tfarquivo,strRegistro); //lê registros
if copy(strRegistro,1,2) = ´02´ then // somente registro tipo detalhe
begin
if StrToFloat(copy(strRegistro,102,15)) <> 0 then
begin
if StrToFloat(copy(strRegistro,118,15)) <> 0 then //verificar depois pois o estq pode ser 0
begin
tblitemlojas.Insert;
tblitemlojastipopro.value :=copy(strRegistro,3,3);
tblitemlojascdprod.value :=copy(strRegistro,6,13);
tblprodutos.Open;
tblprodutos.First;
while not tblprodutos.Eof do
begin
:oops: