[HA3APET]

Люди, нужна помощь.
Есть два исполняемых файла
Первый

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses   SysUtils, windows; var   Application, Params: string;   fName: string;   nsize: cardinal; begin   nsize := 128;   SetLength(fName, nsize);   SetLength(fName, GetModuleFileName(hinstance, pchar(fName), nsize));   { TODO -oUser -cConsole Main : Insert code here }   Application := ExtractFilePath(fName)+'Drweb\DrWebUpW.exe';   Params      := '/dir:"'+ExtractFilePath(fName)+'Drweb" /LNG:ru_drweb.dwl /UA';   WinExec(Pchar(Application+' '+Params),1); end.

Второй

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses   SysUtils, windows; var   Application, Params: string;   fName: string;   nsize: cardinal; begin   nsize := 128;   SetLength(fName, nsize);   SetLength(fName, GetModuleFileName(hinstance, pchar(fName), nsize));   { TODO -oUser -cConsole Main : Insert code here }   Application := ExtractFilePath(fName)+'Drweb\DrWebUpW.exe';   Params      := '/dir:"'+ExtractFilePath(fName)+'Drweb" /LNG:ru_drweb.dwl /UPD';   WinExec(Pchar(Application+' '+Params),1); end.

Нужно их объединить в один исполняемый файл.
Заранее спасибо.