How to get all files and directory recursively that using Unicode character in Delphi

Hi all

I want to search all files and directory recursively in a folder. example 'C:\WINDOWS\'. I use many routine and procedure. Many of them are good for this job. Here is one example:

procedure TForm1.FileSearch(const dirName: string);
var
  searchResult: TSearchRec;
begin
  if FindFirst(dirName + '\*', faAnyFile, searchResult) = 0 then begin
    try
      repeat
        if (searchResult.Attr and faDirectory) = 0 then begin
          if SameText(ExtractFileExt(searchResult.Name), '.gif') then begin
            lbSearchResult.Items.Append(IncludeTrailingBackSlash(dirName) + searchResult.Name);
          end;
        end else if (searchResult.Name <> '.') and (searchResult.Name <> '..') then begin
          FileSearch(IncludeTrailingBackSlash(dirName) + searchResult.Name);
        end;
      until FindNext(searchResult) <> 0
    finally
      FindClose(searchResult);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FileSearch('C:\WINDOWS');
end;

Select allOpen in new window

But the problem is, when there is a folder with unicode character like 'ÆÇC¿¿examplefolderÆÇC¿¿©' inside 'C:\Windows' the result is not showed up. Only folder name like ????examplefolder???? with no files inside.

I use delphi 7 with Windows XP. Help me please, and dont tell me to use other version of Delphi. Thank you all