1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

const ExeSize=205312; // Größe der kompilierten Exe-Datei.
...
// zum Laden
var aHdl:Integer;
    aBuf:Array[1..40000] of byte;
    Gelesen: LongInt;
    f:file;
begin
 aHdl:=FileOpen(Application.ExeName,fmShareDenyNone or fmOpenRead);
 FileSeek(aHdl,ExeSize,0);
 AssignFile(f,'test.bmp');
 ReWrite(f,1);
 Gelesen:=FileRead(aHdl,aBuf,SizeOf(aBuf));
 while Gelesen>0 do
  begin
   BlockWrite(f,aBuf,Gelesen);
   Gelesen:=FileRead(aHdl,aBuf,SizeOf(aBuf));
  end;
 CloseFile(f);
 FileClose(aHdl);
 Image1.Picture.Bitmap.LoadFromFile('test.bmp');
end;

// folgender Code hängt eine Datei an
var f2:file;
    aHdl:Integer;
    gelesen:longInt;
    aBuf:Array[1..40000] of byte;
    Groesse:LongInt;
begin
 AssignFile(f2,'Project1.exe'); // die Exedatei
 Reset(f2,1);
 Groesse:=FileSize(f2);
 CloseFile(f2);

 aHdl:=FileOpen('project1.exe',fmOpenReadWrite);
 FileSeek(aHdl,Groesse,0);
 AssignFile(f2,'aufzaehl.bmp'); // die Datei, die angehängt werden soll.
 Reset(f2,1);
 while not Eof(f2) do
  begin
   BlockRead(f2,abuf,sizeof(abuf),gelesen);
   FileWrite(aHdl,abuf,gelesen);
  end;
 CloseFile(f2);
end;