Description

A method that returns list of all files in specified directory.

Delphi code

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