como crear y editar archivo

[jonydread]

amigos voy bastante avanzado con el tema y queria saber si es posible en esta linea

Código Delphi [-]
temp.Add('start /wait %CDRoom%\App\'+(extractfilename(opendialog1.FileName))+' -install');

si es mas de un archivo se cree con la cantidad de archivos y nombres de cada uno por ejemplo

CLS
@echo off
Echo..........Install program
start /wait %CDRoom%\App\programa1.exe -install
Echo..........Completado
Echo..........Install program
start /wait %CDRoom%\App\programa2 -install
Echo..........Completado
Exit

tengo esto hasta el momento

Código Delphi [-]
procedure TForm1.EditArchivo(rutArchivo: string);
 var
   temp: TStrings;
 begin
   temp := TStringList.Create;
   try
     temp.LoadFromFile(ruta1.text+'\sources\$oem$\$$\Setup\Scripts\SetupComplete.cmd');
     temp.Delete(temp.Count -1);
     temp.Add('Echo..........Install  program');
     temp.Add('start /wait %CDRoom%\App\'+(extractfilename(opendialog1.FileName))+' -install');
     temp.Add('Echo..........Completado');
     temp.Add('Exit');

   finally
    temp.SaveToFile(rutArchivo);
    temp.Free;
  end
 end;

lo aplico asi
EditArchivo(rutadestino);

se me ocurre hacer algo como si hay mas archivos "EditArchivo(rutadestino);" haga el trabajo de a una vez con cada archivo pero como no se me ocurre quemare pestañas y cerebro mientras jeejjeje
saludos!