dateinamen in einem Ordner abfragen??

[erniepb]

also ich suche eigentlich nach selbst erstellten Dateien des Typs '.fct' mit einer 8stelligen Zahl davor ( z.B. '10000000.fct') .. das sind Dateien die temporäre Wertetabellen enthalten um den Arbeitsspeicher zu entlasten .. aber das nur nebenbei .. Ziel ist es einen neuen noch verfügbaren numerischen Dateinamen zu finden ..

meine Momentane Funktion die Ordner und Dateinamen zurückgibt, sieht so aus:

Code:

function TFormFileManagement.GetAvailableTemporaryValueChartAddress(Directory: String): String;
 const
  SubDirectory = '\save';
 var
  i1 : LongInt;
  FileNumber : LongInt;
  FileName : String;
 begin
  FileListBox.ApplyFilePath(Directory + SubDirectory);
  FileListBox.Update;
  i1 := 0;
  FileNumber := 10000000;

  If FileListBox.Items.Count > 0 Then
   repeat
    If (IntToStr(FileNumber) + '.fct') = FileListBox.Items[i1] Then
     Begin
      i1 := -1;
      FileNumber := FileNumber + 1;
     End;
    i1 := i1 + 1;
   until i1 = FileListBox.Items.Count;
  FileName := IntToStr(FileNumber) + '.fct';

  If SubDirectory <> '' Then
   GetAvailableTemporaryValueChartAddress := Directory + SubDirectory + '\' + Filename
  Else GetAvailableTemporaryValueChartAddress := Directory + SubDirectory + Filename; 
 end;