Archivos en Lazarus

[jbecerra]

Hola...estoy necesitando alguna información sobre lo siguiente:
Estoy haciendo un programita para realizar tareas automatizadas. Lo que hago desde el código fuente es generar un archivo BAT que me cambie la extensión de todos los archivos de una carpeta... luego quiero ejecutarlo y no funciona...
Me fije y el archivo BAT está bien escrito... de hecho si le hago doble clic funciona perfectamente. No se que me puede estar fallando o faltando en el código. Les adjunto el código para ilustrar mejor lo que quiero decir...

Código Delphi [-]
Procedure crearfile(var D:string);
var f:textfile;
begin
  D:=D+'\convertir.bat';
  Assign(f,D);
  rewrite(f);
  write (f, 'ren *.dbf *.tmp');
  close(f);
end;                

procedure TForm1.Button2Click(Sender: TObject);
var Dir:string;
    n:integer;
Const SELDIRHELP=1000;
begin
   Dir:='';
   Dir:='C:\Windows';
   if  SelectDirectory (Dir ,[ sdAllowCreate , sdPerformCreate , sdPrompt ], SELDIRHELP )  then
   begin
     crearfile(Dir);
     WinExec(Pchar(Dir),SW_NORMAL);
     showmessage(Dir);
   end;
end;

Cualquier info que puedan darme...les será agradecida..
saludos