procedure TForm1.Button1Click(sender : TObject); begin MoveFileEx('c:\MonRepertoire\','a:\MonRepetoire',MoveFile_Delay_Until_Reboot); end;