procedure TForm1.GetAllFile;
var
  sr : TSearchRec;
  path, mask : String;  
begin
  path := PicDir;
  mask := '*.*';  
  slfile1.clear;  
  if FindFirst(path   '\'   mask, faArchive, sr) = 0 then
  begin
    Repeat
      if  (Uppercase(ExtractFileExt(sr.Name)) = '.JPG')or
          (Uppercase(ExtractFileExt(sr.Name)) = '.BMP')then
      begin          
          slfile1.Add(sr.Name);
      end;{-jpg or bmp}
    Until FindNext(sr) <> 0;
    FindClose(sr);
  end; 
end;