[delphi] wyszukiwanie plikow z roznym rozszerzeniem

Hej, wyszukuje pliki z katalogu za pomocą funkcji if

FindFirst('*.txt', faAnyFile, SearchResult) = 0 then

chcę wyciagnac z katalogu za jednym razem pliki tylko z rozszerzeniem *.avi *.mp3 *.mov

jak ma wygladac ta funkcja aby wyciagala tylko te pliki... dzieki za pomoc

var s: string;
{...}
if FindFirst('*.*', faAnyFile, SearchResult) = 0 then
begin
 S := ExtractFileExt(SearchResult.FileName);
 if S = '.mov' Then
  {...} 
 if S = '.cośtam' Then
  {...}
end;

Itp.

Albo coś takiego

  if FindFirst('*.*',faAnyFile,SearchResult)=0 then
  begin
    s:=LowerCase(ExtractFileExt(SearchResult.FileName));
    if (s='.avi') or (s='.mp3') or (s='.mov') then ...
    ...