Как вызвать диалог «Найти файлы и папки» проводника?

Приведенный пример показывает использование DDE для вызова диалога "Найти файлы и паки" Explorerа. Диалог открывается на каталоге "C:\Download".

procedure TForm1.Button1Click(Sender: TObject); 
 begin 
   with TDDEClientConv.Create(Self) do begin 
     ConnectMode := ddeManual; 
     ServiceApplication := 'explorer.exe'; 
     SetLink( 'Folders', 'AppProperties'); 
     OpenLink; 
     ExecuteMacro('[FindFolder(, C:\DOWNLOAD)]', False); 
     CloseLink; 
     Free; 
   end; 
 end;