Modifier l'architecture d'un dossier

J'ai un dossier dont je connais le chemin par exemple:
C:\Ludovic\Delphi\Séparation (string)
et dans ce dossier, il y a par exemple 1000 fichiers.
Je voudrai savoir comment créer des sous dossiers
C:\Ludovic\Delphi\Séparation\Séparation1
C:\Ludovic\Delphi\Séparation\Séparation2
...
et Répartir les 1000 fichiers dans ces sous dossier.
par exemple 200 fichiers par sous dossier.
Ce serai une procedure de type

procedure TForm1.Separation(Repertoire : string);


Merci Beaucoup

Pour créer les nouveaux dossiers, utilise MkDir

Pour déplacer les fichiers il faut d'abord connaître leur nom.
Pour ça, regarde l'aide sur FindFirst, FindNext et FindClose pour connaître le contenu d'un dossier.

Tu peux ensuite les copier avec CopyFile avant de détruire l'original avec DeleteFile