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:

procedure TFormServiceSK_M.BtnOpenUpdateFileClick(Sender: TObject);
var
  ct, a, bfLen, pos1, pos2: Integer;
  fileData: TZMDirEntry;
  buffer: PChar;
  mStream: TMemoryStream;
  manifestContent, line: String;
  stringList: TStringList;
begin
  // Ask the user for the file to be opened
  DlgOpenFW.DefaultExt := FIRMWARE_EXT;
  if ( DlgOpenFW.Execute ) then begin
    logger.Info( 'BtnOpenUpdateFileClick() FWFilename = ''' + FWFilename + '''' );
    FWFilename := DlgOpenFW.FileName;
    // Expecte a ZIP file and extract the manifest file
    ZipMaster191.ZipFileName := FWFilename;
    ct := ZipMaster191.Count; // counts the overall number of files stored in the zip archive
    logger.Info( 'Open file "' + DlgOpenFW.Filename + '" which contains ' + IntToStr( ct ) + ' single files.' );
    a := 1;
    fileData := ZipMaster191.Find( MANIFEST_FILE, a ); // ---------------------------------------> Punkt 1
    a := 0;
    repeat
      fileData := ZipMaster191.DirEntry[ a ];
      a := a + 1;
    until ( ( a >= ZipMaster191.Count ) OR ( fileData.FileName = MANIFEST_FILE ) );
    if NOT( Assigned( fileData ) ) then begin // ---------------------------------------> Punkt 2
      // Uuups, manifest not found
      logger.Error( 'Archive ' + FWFilename + ' does not contain a ' + MANIFEST_FILE + ' file!' );
    end else begin
      // Read out the content of the manifest file
      ..............
      // Having done this, we have to investigate the lines one by one
    end;

  end;
end;                    

1:
2:

    a := -1;
    fileData := ZipMaster191.Find( MANIFEST_FILE, a );