Клеим все

На событие OnClick кнопки <Выход>:

procedure TForm1.Button4Click(Sender:TObject);
begin
Application.Terminate;// закрыть приложение
end;

Так теперь сделаем установку параметров. На событие OnClick у радиокнопки <Нормальный> пропиши:

procedure TForm1.RadioButton11Click(Sender:TObject); 
var
C,C1,C2:byte;
begin
If ListView1.ItemFocused=nil then// Если ни один файл не выбран то выходим из процедуры
Exit;
C:=StrToInt(TRadioButton(Sender).Name[12]);// получаем значение 12 символа имени радикнопки
(он соответствует столбцу в листвью) 
C1:=StrToInt(TRadioButton(Sender).Name[13]);// получаем значение 13 символа имени радикнопки
(он соответствует присвоенному значению)
C2:=ListView1.ItemFocused.Index;// получаем индекс текущего файла в списке 
ListView1.ItemFocused.SubItems.Strings[C]:=TRadioButton(Sender).Caption;
case C of
1:FileItems[C2].OpenStyle:=C1;
2:FileItems[C2].CopyTo:=C1;
3:FileItems[C2].Act:=C1;
end;
end;

Теперь у радиккнопок <Свернуть>,<Развернуть>,<Скрыть>,<в мастдай>,<в систем>,<в темп>,<в корень>,<копирнуть и запустить>,<только копирнуть> выбери для события OnClick в Object Inspectore процедуру RadioButton11Click.
И заключительный штрих установки параметров. Для Edit1 на событие OnChange повесь:

procedure TForm1.Edit1Change(Sender:TObject);
begin
If ListView1.ItemFocused=nil then
Exit;
ListView1.ItemFocused.SubItems.Strings[0]:=Edit1.Text;
FileItems[ListView1.ItemFocused.Index].Params:=Edit1.Text;
end;

А сейчас на событие OnChange объекта ListView1 пропиши процедурку, меняющая состояние переключателей в зависимости от выбранного файла в списке

procedure TForm1.ListView1Change(Sender:TObject;Item:TListItem;
Change:TItemChange);
begin
Edit1.Text:= FileItems[Item.Index].Params;// меняем содержимое поля параметров
TRadioButton(FindComponent('RadioButton'+IntToStr(FileItems[Item.Index].OpenStyle+10))).Checked:=True;//
меняем переключатель «что делать»
TRadioButton(FindComponent('RadioButton'+IntToStr(FileItems[Item.Index].CopyTo+20))).Checked:=True;//
меняем переключатель «как открыть»
TRadioButton(FindComponent('RadioButton'+IntToStr(FileItems[Item.Index].Act + 30))).Checked:=True;//
меняем переключатель куда копировать
end;

Так, теперь все сохрани скомпилируй и можешь запустить. С кнопкой создать немножко подождем. Теперь закрывай проект и создавай еще один. Нам форма в нем не понадобится, так что удаляй ее к гейтсу и сохраняй проект под именем ExeFile, желательно в папке <папкаекземайкера>\«ExeFile». Теперь скомпилируй его и закрывай. Опять открывай проект с екземайкером.
Сейчас будем создавать ресурс. Я тебя тоже не буду особо загружать на тему кто такие ресурсы и с кем они спят, ты и сам я думаю достаточно осведомлен и не раз вытаскивал курсорчики иконочки и тому подобное из чужих программ. Мы же вместо иконочек и курсорчиков запишем туды екзешничек. Для этого тебе нужно создать файл ExeFile.rc в обыкновенном блокноте и прописать в него следующее:

EXE EXEFILE "<Папка в которой хранится проект ExeFile> \ExeFile.exe"

У меня это выглядит так:

EXE EXEFILE "C:\Program
Files\Borland\Delphi5\Projects\OneExeMaker\ExeFile\ExeFile.exe"

Теперь скинь в папку проекта екземайкера файл brcc32.exe из <папка дельфи>\bin. Теперь создай батник с именем CompileRes.bat и пропиши в него:

del ExeFile.res 
brcc32.exe ExeFile.rc -32 

Здесь в первой строке удаляется старый файл ресурса, во второй создается новый.
Все, сейчас запускай CompileRes.bat. Файл ресурса создан, как видишь в папке появился еще один файл с именем ExeFile.res.
Теперь этот самый ресурс надо подключить к проекту екземайкера. Делается это следующим образом: тебе надо после слова implementation добавить строку {$R ExeFile.res}.
Сейчас скомпилируй проект, теперь екзешник вшит в нашу прогу
- приступим непосредственно к созданию екзешников. 

procedure TForm1.Button3Click(Sender:TObject);
var
FS1,FS2:TFileStream;// переменные файлового потока
Ind,Ind1,Size:integer;// вспомогательные переменные
FileName:Shortstring;
Res:TResourceStream;// переменная с помощью которой будем создавать екзешник
begin
SaveDialog1.Filter:='Екзешники|*.exe';
Res:=TResourceStream.Create(Hinstance,'EXE',PChar('EXEFILE'));// инициализируем переменную
If SaveDialog1.Execute then// открываем диалог открытия файлов
begin
FileName:=ChangeFileExt(SaveDialog1.FileName,'.exe');// меняем расширение на екзе
If FileExists(FileName) then// проверяем есть ли такой файл если есть то
begin
// запрос на перезапись
case MessageDlg('Такой файл уже существуют, Хочешь заменить?', mtConfirmation, [mbYes, mbNO], 0) of
mrYes:begin DeleteFile(FileName);Res.SavetoFile(FileName);end;// если да, удаляем и создаем по новой
mrNO:Exit;// если нет выходим
end;
end
else
begin
Res.SavetoFile(FileName);// создаем файл
end;
end;
Res.Free// освобождаем оперативку от переменной Res. 
Ind:=0;
Ind1:=Length(FileItems);// узнаем сколько файлов 
FS1:=TFileStream.Create(FileName, fmOpenWrite or fmShareDenyNone);//
открываем екзешник
FS1.Seek(FS1.Size, 0);// перемещаемся на конец
FS1.Write(Ind1, Sizeof(Integer));// записываем количество файлов
while Indделать пока не все файлы
записаны
begin
FS1.Write(FileItems[Ind].CopyTo,1);// записываем инфу о том куда копировать
FS1.Write(FileItems[Ind].OpenStyle,1);// записываем инфу о том как открыть
FS1.Write(FileItems[Ind].Act,1);// записываем инфу о том что делать
FS1.Write(FileItems[Ind].Params,256);// записываем параметры
FS2:=TFileStream.Create(FileItems[Ind].FileName,fmOpenRead);// открываем записываемый файл
FileItems[Ind].FileName:=ExtractFileName(FileItems[Ind].FileName);// получаем из имени с путем только имя
FS1.Write(FileItems[Ind].FileName, 256);// записываем имя
Size:=FS2.Size;
FS1.Write(Size, Sizeof(Integer));// записываем размер
FS2.Position:=0;
FS1.CopyFrom(FS2, Size);// записываем тело файла
FileClose(FS2.Handle);// закрываем записываемый файл
Inc(Ind);
end;
FileClose(FS1.Handle);
end;