Function MakeExeFile(ExeFileName,HeadExeFile,BodyFile:string):boolean;
var  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
  filerec:record
     filename:string[80];
     filesize:integer;
  end;
  ok:boolean;
begin
  ok:=true;
  AssignFile(ToF, ExeFileName);        { Open output file }
  try
  Rewrite(ToF, 1);        { Record size = 1 }
  // Save HeadExeFile
  assignfile(fromf,HeadExeFile);
  FileMode := 0;  {Set file access to read only }
  reset(fromf,1);
  repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromF);
  if NumWritten <> NumRead then ok:=false;
  // Save Body File
  assignfile(fromf,BodyFile);
  FileMode := 0;  {Set file access to read only }
  reset(fromf,1);
  FileRec.filename:=extractfilename(BodyFile);
  FileRec.filesize:=0;
  repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
        FileRec.filesize:=FileRec.filesize NumWritten;
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromF);
  if NumWritten <> NumRead then ok:=false;
  // Save File Record
  BlockWrite(ToF,filerec,sizeof(filerec));
  except
    ok:=false;
  end;
  CloseFile(ToF);
  result:=ok;
end;    Function GetBodyFile(OutputDir:string;var FileName:string):boolean;
var  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
  filerec:record
     filename:string[80];
     filesize:integer;
  end;
  writetot:integer;
  ok:boolean;
begin
  ok:=true;
  // open file
  assignfile(fromf,application.ExeName);
  FileMode := 0;  {Set file access to read only }
  reset(fromf,1);
  // get file record
  seek(fromf,filesize(fromf)-sizeof(filerec));
  BlockRead(FromF,filerec,sizeof(filerec));
  FileName:=filerec.filename;
//  caption:=filerec.filename ' ' inttostr(filerec.filesize);
  seek(fromf,filesize(fromf)-sizeof(filerec)-filerec.filesize);
  // write file
      AssignFile(ToF, OutputDir '\' filerec.filename);
      try
      Rewrite(ToF, 1);
      writetot:=0;
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        if writetot NumRead>filerec.filesize then
           NumRead:=(filerec.filesize-writetot);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
        writetot:=writetot NumWritten;
      until (NumRead = 0) or (NumWritten <> NumRead);
        CloseFile(ToF);
      if writetot<>filerec.filesize then ok:=false;
      except
        ok:=false;
      end;
        CloseFile(FromF);
   result:=ok;
end;