Ordner durchsuchen

[StoRmtec]

Hy @all

Und zwar durchsuche ich Ordner und lasse die Dateien in der ChecklistBox ausgeben.
Hier der Code:

Delphi-Quellcode:

procedure GetFiles(LB : TCheckListBox; Path, ext: string);
var
  SR    : TSearchRec;
  err   : integer;
  dummy : string;
begin
   err := FindFirst(Path+'*.'+ext, faAnyFile, SR);
   while err = 0 do
   begin
     if (sr.name<>'.') and (sr.name<>'..') then
     if ((sr.Attr and fadirectory)<>0) then
     begin
       dummy := path + sr.name + '\';
       getfiles(lb, dummy, ext);
     end
     else
     lb.Items.Append(sr.FindData.cFileName);
     err := findnext(sr);
  end;
  FindClose(SR);
end;

Da wird mir aber auch in der CheckListBox die Endung mitgegeben.
Wie kann ich das jetzt machen das er mir die Endung nicht mit anzeigt.

Danke
StoRmtec