Не работает поиск файлов по маске

while FindFirst('*.exe',faAnyFile,client)=0 do
 begin
 ////
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Folder: String;
begin
  Folder := 'C:\Windows';
 
  Folder := IncludeTrailingPathDelimiter(Folder);
  if FindFirst(Folder + '*.*', faAnyFile, SR) = 0 then
  try
    repeat
      if ((SR.Attr and faDirectory) = 0) and                       // Файл, а не папка?
         SameFileName(ExtractFileExt(SR.Name), '.exe') then        // Расширение - exe?
        Memo1.Lines.Add(Folder + SR.Name);                         // Если да - добавляем
 
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
    var sr:TSearchRec;
    Result:word;
    begin
        ChDir('C:\windows');//меняем папку на C:\Windows
        Result := FindFirst ('*.exe',faAnyFile,sr);
        ListBox1.Clear;
        While result=0 do
    Begin
        Result:=FindNext (sr);
        ListBox1.Items.add(sr.name);
    End;
    end;

result:=FindFirst('*.exe',faAnyFile,client);
while result=0 do
 begin
///////
 end;
 result:=findnext(client);

result:=FindFirst('zzz.exe',faAnyFile,client);
while result=0 do
 begin
///////
 end;
 result:=findnext(client);

procedure TForm1.Button1Click(Sender: TObject);
var
  Sr : TSearchRec;
  SPath : String;
begin
  //Путь к папке в которой лежит исполняемый файл программы.
  //Строка этого пути завершается слешем: '\'.
  //SPath := ExtractFilePath( Application.ExeName );
  
  //Путь к папке Windows извлекаем из переменной среды WinDir.
  SPath := GetEnvironmentVariable('WinDir');
  SPath := IncludeTrailingPathDelimiter(SPath);
 
  Memo1.Lines.Add('Папка: ' + SPath);
  try
    if FindFirst(SPath + '*.exe', faAnyFile, Sr) = 0 then repeat
      //Пропускаем папки.
      if (Sr.Attr and faDirectory) = faDirectory then Continue;
      //Имена файлов добавляем в Мемо.
      Memo1.Lines.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;

SPath := GetEnvironmentVariable('WinDir');
  SPath := IncludeTrailingPathDelimiter(SPath);

SPath := IncludeTrailingPathDelimiter(SPath);

var
  Len : Integer;
begin
...
  Len := Length(SPath);
  if (Len > 0) and (SPath[Len] <> '\') then SPath := SPath + '\';
...