[Ushastiy]

сорри за глупость.. но возможно этот код ужать до такогоже списка..?

Код:

procedure TForm1.SearchCounDocs;
Var
  SearchRec:TSearchRec;
begin
   If FindFirst((ExtractFilePath(paramstr(0)) + 'Docs\230101\Konsp\*.' + SearchRasch),
     faAnyFile, SearchRec)=0 then                                  //конспекты
   repeat
     if (SearchRasch = 'doc') or (SearchRasch = 'xls') then
       if (copy(SearchRec.name,length(SearchRec.name)-3,length(SearchRec.name)) <> 'docx')
         or (copy(SearchRec.name,length(SearchRec.name)-3,length(SearchRec.name)) <> 'xlsx')
          then
             ComboBoxEx7.Items.Add(SearchRec.name);
   until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);
   If FindFirst((ExtractFilePath(paramstr(0)) + 'Docs\230101\Video\*.' + SearchRasch),
     faAnyFile, SearchRec)=0 then                             //видео
   repeat
     if (SearchRasch = 'doc') or (SearchRasch = 'xls') then
       if (copy(SearchRec.name,length(SearchRec.name)-3,length(SearchRec.name)) <> 'docx')
         or (copy(SearchRec.name,length(SearchRec.name)-3,length(SearchRec.name)) <> 'xlsx')
          then
             ComboBoxEx6.Items.Add(SearchRec.name);
   until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);

......

неподдаются эти списки мне...