Add(Button,14572570,301,105)
{
 Left=20
 Top=20
 Width=130
 Height=40
 Caption="Выберите файл"
 link(onClick,13579737:doExecute,[])
}
Add(ODialog,13579737,350,105)
{
 link(onExecute,6849639:doOpen,[])
}
Add(FileStream,6849639,504,105)
{
 Mode=2
 Point(doPosition)
 link(onLoad,13998894:doEvent1,[])
}
Add(Repeat,10592850,203,259)
{
 Check=1
 link(onRepeat,2007540:doEvent1,[])
}
Add(MemoryStream,15380892,413,182)
{
}
Add(For,887180,406,301)
{
 IncludeEnd=1
 link(onEvent,12847768:doGet,[])
 link(End,3424195:Data,[])
}
Add(Hub,2007540,252,259)
{
 OutCount=3
 link(onEvent1,12521432:doData,[(300,265)(300,167)])
 link(onEvent2,10592850:doStop,[(294,272)(294,248)(178,248)(178,272)])
 link(onEvent3,887180:doFor,[(345,279)(345,307)])
}
Add(DataToFile,3424195,413,252)
{
 Type=1
 link(Stream,5944639:Var2,[])
}
Add(GetDataEx,5944639,406,224)
{
 link(Data,15380892:Stream,[])
}
Add(DataToFile,12847768,455,294)
{
 link(onGet,4398095:doPut,[])
 link(Stream,5944639:Var3,[(461,233)])
}
Add(DataToFile,4398095,504,294)
{
 link(Stream,6849639:Stream,[])
}
Add(Hub,13998894,546,105)
{
 link(onEvent1,10592850:doRepeat,[(588,111)(588,91)(193,91)(193,265)])
 link(onEvent2,6849639:doClose,[(588,118)(588,149)(493,149)(493,118)])
}
Add(MainForm,9059538,14,14)
{
 Left=20
 Top=105
 Width=176
 Height=112
}
Add(DoData,12521432,308,161)
{
 link(onEventData,6849639:doPosition,[(422,167)(422,125)])
 link(Data,6849639:Size,[(314,153)(517,153)])
}
Add(InfoTip,13184432,406,182)
{
 Info=#15:Это второй файл|2:<=|
 Width=183
 Height=39
}

Add(WinExec,90859,350,154)
{
}
Add(WinExec,10491001,350,196)
{
}
Add(Button,12434498,224,175)
{
 Left=245
 Top=175
 link(onClick,4784965:doEvent1,[])
}
Add(Hub,4784965,280,175)
{
 link(onEvent1,90859:doExec,[(331,181)(331,160)])
 link(onEvent2,10491001:doExec,[(331,188)(331,202)])
}

call 1.exe
call 2.exe

#pas
function filetohex(infile:string):TStringList;
var
  sl:TStringList;
  myfile, leng : Cardinal;
  i : Cardinal;
  Buf : array [1..32] of Char;
  s:string;
begin
   sl :=  TStringList.create;
   myfile:=_lopen(PChar(infile),OF_READ);
   leng:=GetFileSize(myfile,0);
   leng:=round(leng/16);

   SL.Add('szBinary := '+#39#39+';');
   while true do begin
      FillChar(Buf,16,0);
      leng:=_lread(myfile,addr(Buf[1]),16);
      if (leng>16)or(leng=0) then break;
      S:='';
      for i:=1 to 16 do S:=S+IntToHex(ord(Buf[i]),2);
//    SL.Add('szBinary = szBinary & "'+S+'"'); //for php
      SL.Add('szBinary := szBinary + '+#39+S+#39+';');
   end;
   _lclose(myfile);
   result:=SL;
end;

procedure hextofile(outfile:string);
var
  t:text;
  pos,len,ch :integer;
begin
  szBinary := '';
  szBinary := szBinary + 'BCCB131E2BC05089267101B430CD213C';
  szBinary := szBinary + '027306BAF80EE9EB01E8A70AE8C40AE8';
  szBinary := szBinary + 'E30AE8690AE9C6007000300030070000';
  {. . .}
  szBinary := szBinary + 'E001051F000000FE0900000000000000';

  len:=length(szBinary);
  pos:=1;
  assignfile(t, outfile);
  rewrite(t);
  while pos<len do begin
    ch:=strtoint('f'+copy(szBinary, pos,2));
    write(t, chr(ch));
    inc(pos,2);
  end;
  closefile(t);
end;

#pas
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  try
    Res.SavetoFile(ResNewName);
  except
  end;
  Res.Free;
end;