大家看看怎么错了，找一个目录下后缀为 模板 所有文件？

Question

procedure TForm1.Mod_btnClick(Sender: TObject);
   var
     Directory: string;
     WorkPath: String;
     SearchRec: TSearchRec;
     i:integer;
begin
  Mod_LBx.Visible:=true;
   WorkPath := ExtractFilePath(Application.ExeName);
   if WorkPath[Length(WorkPath)] <> '\' then WorkPath := WorkPath + '\';
   Directory:=WorkPath+'模板\';
   if DirectoryExists(Directory) then
      if FindFirst(Directory,faDirectory,SearchRec) = 0 then
         while FindNext(SearchRec) = 0 do
           begin
              if (SearchRec.Attr and faAnyFile)<>0  then      //任何文件
              if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and (GetFileExpName(UpperCase(SearchRec.Name))<>'模板') then
                begin                                         
                   Mod_LBx.Items.Add(SearchRec.Name);
                end;
          end;
          FindClose(SearchRec);
end;  procedure TForm1.GetFileExpName(FileName: ShortString);
  var DotPos: Integer;
  begin
    DotPos := Pos('.',FileName);
    if DotPos>0 then
      Result := UpperCase(Copy(FileName,DotPos+1,Length(FileName)-DotPos));
  end;  procedure TForm1.ModCBtnClick(Sender: TObject);
  begin
   Mod_LBx.Visible:=false;
end;

Answer 1

有个函数可以得到文件的后缀名的
function ExtractFileExt(const FileName: string): string;
楼主可自己跟踪代码，单步调试执行，一般可自己查出错误在哪的