Поиск файла по всему диску

[Shouldercannon]

Нашёл способ, но он не работает в Delphi 2010 если данные подставлять из TEdit или из чего-либо другого. В чём может заключаться проблема?

Код: Выделить всё

uses Imagehlp
...
procedure TForm1.Button1Click(Sender: TObject);
var
  FilePath: PAnsiChar;
begin
  Button1.Enabled := False;
  GetMem(FilePath, MAX_PATH);
  if SearchTreeForFile('D:\'{PAnsiChar(Edit1.Text)}, 'test.txt'{PAnsiChar(Edit2.Text)}, FilePath) then ShowMessage ('Найден файл: ' + FilePath);
  FreeMem(FilePath);
  Button1.Enabled := True;
end;