1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TMfa.Packe;
var
  Datei:TStream;
  i,len:Integer;
  DateiHeader:String;
begin
  Datei := TFileStream.Create(FileName, fmCreate);
  
  Len:=Dateien.Count;
  Datei.Write(Len, SizeOf(Len));

  for i:=0 to Dateien.Count-1 do begin                                                                      
    DateiHeader:=Dateien.Strings[i] + ';'
                 + DateTimeToStr(FileDateToDateTime(FileAge(Dateien.Strings[i]))) + ';'
                 + DateTimeToStr(FileTimeToDateTime(GetFileLastWrite(Dateien.Strings[i]))) + ';'
                 + DateTimeToStr(FileTimeToDateTime(GetFileLastAccess(Dateien.Strings[i])))+ ';'
                 + 'Größe' + ';' + 'Beschreibung' + ';' + 'PositionA' + ';' + 'PositionE';
    Len:=StrLen(PChar(DateiHeader));
    Datei.Write(Len, SizeOf(Len));
    Datei.Write(PChar(DateiHeader)^,Len);
    DateiHeader:='';
  end;
  Datei.Free;  
end;