[Karsh]

Напиши одну процедуру с переменными параметрами и используй ее, например так:

Код:

procedure gg(s: string; ComboBoxEx: TComboBoxEx);
Var
  SearchRec:TSearchRec;
begin
   If FindFirst((ExtractFilePath(paramstr(0)) + 'Docs\230101\' + s + '\*.' + 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
             ComboBoxEx.Items.Add(SearchRec.name);
   until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);
end;      

procedure TForm1.SearchCounDocs;
begin
  gg('Konsp', ComboBoxEx7);
  gg('Video', ComboBoxEx6);
  // ....
end;