По такой вот процедурке у меня идет поиск файлов:

Но только если маска=*.avi и все, если например *.avi;*.wav - уже не работает!!
Как организовать поиск по несколькм маскам сразу???????

procedure FindFiles(StartFolder, Mask: string; List: TStrings;
ScanSubFolders: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
StartFolder := IncludeTrailingBackslash(StartFolder);
FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
try
while FindResult = 0 do
with SearchRec do
begin
if (Attr and faDirectory) <> 0 then
begin
if ScanSubFolders and (Name <> '.') and (Name <> '..') then
FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
end
else
begin
if MatchesMask(Name, Mask) then
List.Add(StartFolder + Name);
end;
FindResult := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;

а где у тебя определение второй составляющей строки? сделай после ввода масок цикл с поиском текста до точки с запятой и после нее, с рекурсией. тогда все работать будет;)
Добавлено @ 13:42
там будет примерно это:
for qwe:=1 to length({строка с масками}) do begin
if {строка с масками}[qwe]=';' then begin str:={строка с масками}; setlength(str,3); delete({строка с масками},1,4); end;
...
...
...
...
end;
где str - строка с получившимися масками.

http://forum.sources.ru/index.php?showtopi...&hl=ismatchmask