1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure FilesInDir(Pfad, Mask:string; var Liste : TStrings; Action : TfidActionType);
var
  Gefunden : TSearchRec;
  Path : string;
begin
    try
    if FindFirst(Pfad + Mask, faAnyFile, Gefunden) = 0 then
    begin
        if not (fidAppend in Action) then Liste.Clear;
        if (fidWithPath in Action) then
            Path := (IncludeTrailingBackslash(Pfad))
        else
           Path := '';

        if (fidCutExtension in Action) then
           Liste.Add(Path + ExtractPureFileName(Gefunden.Name))
        else
          Liste.Add(Path + Gefunden.Name);

        while (FindNext(Gefunden) = 0) do
        begin
            if (fidCutExtension in Action) then
               Liste.Add(Path + ExtractPureFileName(Gefunden.Name))
            else
               Liste.Add(Path + Gefunden.Name);
        end;
    end;
    finally
    FindClose(Gefunden);
    end;
end;