[jonydread]

aqui esta mas o menos a lo que quiero llegar ya bien claro espero a alguien le sirva

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
richedit1.Lines.LoadFromFile(opendialog1.FileName);
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
try
richedit1.Lines.Delete(richedit1.Lines.Count - 1);//esta linea elimina el exit
richedit1.Lines.Add('Echo..........Install  program');
richedit1.Lines.Add('start /wait %CDRoom%\App\'+(extractfilename(opendialog2.FileName))+' -install');
richedit1.Lines.Add('Echo..........Completado');
richedit1.Lines.Add('Exit');

finally
  richedit1.Lines.EndUpdate;
  richedit1.lines.SaveToFile(extractfilepath(opendialog1.FileName)+'\new.cmd');

end
end;

muchas gracias nuevamente!