function GetDirFileName(Dir,ExtName: string): TStringList;
var
  FSearchRec: TSearchRec;
  FileList: TStringList;
  FindResult: Integer;
begin
  if Dir[length(Dir)] <> '\' then
    Dir := Dir + '\';
  FileList := TStringList.Create;
  FindResult := FindFirst(Dir + '*.'+ExtName, faAnyFile, FSearchRec); //
  try
    while FindResult = 0 do
    begin
      if (FSearchRec.name <> '.') and (FSearchRec.name <> '..') then
        FileList.Add(LowerCase(Dir + FSearchRec.Name));
      FindResult := FindNext(FSearchRec);
    end;
  finally
    SysUtils.FindClose(FSearchRec);
    //FindClose(FSearchRec);
    dir := '';
  end;
  Result := FileList;
end;