Qual erro nesse código?

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

Alguém pode me dizer e se possível concertar? É um código que procura arquivos no windows http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif