Como puedo crear un archivo con extension .bat en desde dephi

[pnsd_89]

buenas compañeros de batalla, de esta manera yo he generado mi archivo.bat inspirandome en el post de DEC(grande!) es lo mismo pero con un codigo similar

Código Delphi [-]
procedure tFControlArchivosClearing.CrearArchivoBat(rutArchivo, txt: string );  
var    TF: TextFile;  
begin     
  if FileExists('C:\archivo.bat') then       
    Deletefile('C:\archivo.bat');     
  AssignFile(TF, 'C:\archivo.bat');     
  Rewrite( TF );    
  try       
    WriteLn( TF, 'cd C:\blablabla\');       
    WriteLn( TF,'blabla '+ parametro);       
    WriteLn( TF,'pause');     
  finally      
    CloseFile( TF );    
  end;  
end;