Problem zliczania plików

Jestem początkujący w Delphi I nieweim moze to pytanie wyda się łatwe ale niestety ja nie potrafię sobie poradzić

1. Jak zliczyć ilość plików w danym katalogu.
   Np mam 100 plików w katalogu i potrzebuj zliczyć z posrod tych stu tylko te ktore maja w nazwie slowo np. delphi

2. Jak wyszukać w podanym katalogu pliki w których się powtarzają np słowa delphi i wykopiowac te pliki do innego katalogu

Kopiowanie: CopyFile
Szukanie: FindFirst, FindNext, FindClose (zobacz do helpa)

Przy szukaniu skorzystaj z maski delphi
Są przykłady w FAQ i na stronie. Przerób sobie poniższą procedurkę:

Procedure Listuj(Const Katalog:String;Const S:TStringList);
Var F:TSearchRec;
Begin
S.Clear;
If Not DirectoryExists(Katalog) Then Exit;
If FindFirst(Katalog+'.',faAnyFile,F)=0 Then
Begin
Repeat
If (F.Attr And faDirectory)+(F.Attr And faVolumeID)=0 Then S.Add(F.Name);
Until FindNext(F)0;
S.Sort;
End;
FindClose(F);
End;

<font color="red">[b][Moderator przypomina o istnieniu tagu delphi][/b]</span>

Dzięki potestuje