1:

  Attrib := faArchive + faReadOnly + faHidden;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure ListFileDir(Path: String; FileList: TStrings);
var 
  SR: TSearchRec;
begin
  try
    if FindFirst(Path + '*.xyz', faAnyFile xor faDirectory, SR) = 0 then
      repeat
        FileList.Add(SR.Name);
      until FindNext(SR) <> 0;
      
  finally FindClose(SR) end;
end;					

1:

ListFileDir('c:\Programme\',ausgabe);					

1:
2:
3:

     repeat  
        FileList.Add(SR.Name);  
      until FindNext(SR) <> 0;					

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

procedure...
var ausgabe:TStringList;
begin
  ausgabe.Create;
  try
   ausgabe.Add('blablabla');
  finally
   ausgabe.Free;
  end;
end;					

1:

ausgabe:=tstringlist.create;