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

procedure TForm16.FormCreate(Sender: TObject);

var Paket,Programmordner : String;
var res : Integer;
ds: TSearchRec;
begin
form16.Left := 80;
form16.Top := 130;
paket := form1.lblKontakt.caption;
ProgrammOrdner:=ExtractFilePath(application.ExeName);
res := FindFirst(ProgrammOrdner + 'Data\' + '*',faDirectory,ds);
  while(res =0) do begin

   //Alle Ordner in die Box:
    clb1.Items.Add(ds.name);

  res := FindNext(ds);
end;
FindClose(ds);



end;					

1:
2:

if ds.Attribute and faDirectory = faDirectory then
// einfügen					

1:

if ds.Attr and faDirectory = faDirectory then