Drag and Drop

Olá Pessoal

Estou tentando usar o fragmento de código abaixo em um botão para mudar a propriedade dragmode dos componentes de um form, más não está dando certo.

for nCount:=1 to Form1.ControlCount do begin
ChildControl:= Form1.Controls[nCount-1] ;
ChildControl.DragMode:= dmAutomatic ;
end ;

Agradeço desde já qualque dica.