Dateien/Ordner in einem Ordner ermitteln + TComboBox

[qb-tim]

Hi,

meine Fragen:

Wie ermittle ich die Anzahl der Ordner bzw. Dateien in einem Ordner?
Wie lese ich dann die einzelnen Datei- bzw. Ordnernamen (ohne Pfad) in Strings ein?
Wie ändere ich die Anzahl der Felder in TComboBox?
Wie ändere ich einen Feld in TComboBox?

Delphi-Quellcode:

// Globale Variablen (public)

  var AnzahlDateien, AnzahlOrdner : Integer; 


// prozedur 1

begin
  AnzahlOrdner := // Befehl die Ordner in einem Ordner zu zählen
  AndzahlDateien := // Befehl die Dateien in einem Ordner zu zählen
end;


// prozedur 2

var OrdnerNamen : Array[1..AnzahlOrdner] von String;  // sind diese Deklarationen richtig?
    DateiName : Array[1..AnzahlDateien] von String;
    x : Integer;
begin
  {Eigenschaft, der die Länge des ComboBox1 ändert} := AnzahlOrdner;
  {Eigenschaft, der die Länge des ComboBox2 ändert} := AnzahlDateien;
  for x := 1 to AnzahlOrdner do
    {Eigenschaft, der den Feld[x] des ComboBox1 ändert} := {Befehl den Namen Ordner[x] zu ermitteln}
  for x := 1 to AnzahlDateien do
    {Eigenschaft, der den Feld[x] des ComboBox2 ändert} := {Befehl den Namen Datei[x] zu ermitteln}
end;