Запустить проводник Windows с окном поиска

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