if (FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0) then ...

MatchesMask проверяет, соответствует ли файл FileName маске, определенной в параметре Mask.

 if (FindFirst(StartDir+Mask1, faAnyFile, SearchRec) = 0) or
   (FindFirst(StartDir+Mask2, faAnyFile, SearchRec) = 0) or ...
     (FindFirst(StartDir+MaskN, faAnyFile, SearchRec) = 0) then begin ...

 ...
 GetDir(0, cDir); // получить имя текущего каталога
 if cDir[length(cDir)] <> '\' then cDir := cDir+'\';
 ListBox1.Items.Clear;
 ScanDir(cDir, '*.pas', ListBox1.Items);
 ...

if (SearchRec.Attr and faDirectory) <> faDirectory
then List.Add(StartDir + SearchRec.Name)

  else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')
    then begin

function GetFiles(const aPath: String;MasksStr: String;aListFile: TStrings): Boolean;
var
 SR: TSearchRec;
 tPath: String;
 LMask: TStringList;
 i: Integer;
begin
 LMask := TStringList.Create;
 try
{$WARN SYMBOL_PLATFORM OFF}
   tPath := IncludeTrailingBackSlash(aPath);
{$WARN SYMBOL_PLATFORM ON}
   Result := True;
   try
     LMask.Delimiter := ';';
     LMask.DelimitedText := MasksSTr;
     if FindFirst(tPath+'*.*',faAnyFile,SR)=0 then
     begin
       try
         repeat
           if (SR.Name='.') or (SR.Name='..') then Continue;
           if (SR.Attr and faDirectory)<>faDirectory then
           begin
             for i :=0 to LMask.Count-1 do
             begin
               if MatchesMask(SR.Name,LMask[i]) then
               begin
                 aListFile.Add(tPath+SR.Name);
                 Break;
               end;
             end;
           end
           else GetFiles(tPath+SR.Name,MasksStr,aListFile);
         until FindNext(SR)<>0;
       finally
         Sysutils.FindClose(SR);
       end;
     end;
   except
     Result := False;
   end;
 finally
   LMask.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 GetFiles('c:\','*.pas;*.dpr',Memo1.Lines);
end;