[HA3APET]

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

Код:

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.

Второй

Код:

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.

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