use a filestream
and bitmap type singal
for example:
Save=====================
Type TbmType=(bmJpeg,bmBmp);
Var FS:TfileStream;
Singal:TbmType;
Begin
FS:=TfileStream.Create(AfileName,fmOpenwrite or fmCreate);
Singal:=bmJpeg;
FS.write(Singal,Sizeof(Singal)); //write a Jpeg Image and it's type prefix
Ajpeg.Saveto(FS);
Singal:=bmBmp;
FS.write(Singal,Sizeof(Singal)); //write a BMP Image and it's type prefix
ABmp.Saveto(FS);
.........
Load======================================
.........