1:
2:
3:
4:
5:
6:
7:
8:
9:

try
  lStringList.Create := TStringList.Create();
  
  if assigned(lStringList) then begin
   // Tue irgendwas...
  end;
finally
  if assigned(lStringList) then FreeAndNil(lStringList);
end;					

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

//returns string list with content of a folder
function TForm1.getContent(folder: String): TStringList;
var
    i,from: Integer;
    stringList: TStringList;
begin
    stringList := TStringList.Create;

    Kazip1.Active := true;
    Kazip1.FileName := Label3.Caption;

    //find all files in the zip archive beginning with 'folder'
    for i := 0 to Kazip1.Entries.Count-1 do
        if ( (Copy(KAZip1.Entries.Items[i].FileName,0,length(folder)) = folder))
        and not KAZip1.Entries.Items[i].IsFolder then
            begin
                 from := pos('/', copy(KAZip1.Entries.Items[i].FileName, 0, length(KAZip1.Entries.Items[i].FileName)));
                 stringList.Add(copy(KAZip1.Entries.Items[i].FileName, from+1, length(KAZip1.Entries.Items[i].FileName)));
            end;
    result := stringList;
end;					

1:
2:

for k := 0 to getContent('A_Folder').Count-1 do
       newStringList.add(getContent('A_Folder')[k]);