Verschieben von Ordner

[SaFu]

Hallo zusammen

Habe ein Problem, habe mich aber hier im Forum und in der delphi Hilfe mal nachgeschaut aber nichts Passendes dazu gefunden

Ich erstelle einen ordner und zwar so

 ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Vertretungspläne\KW_'+(IntToStr(WeekOfTheYear(DateTimePicker1.DateTime)))+'_'+(IntToStr(yearof(DateTimePicker1.DateTime)); der wird mir angezeigt im ShellTreeView jetzt würde ich gerne diesen erstellten Ordner in einen anderen Ordner (Vertretungspläne Archiv) verschieben sobald die Aktuelle Kalenderwoche Größer ist als die vom erstellten ordner

Wie geht das habe da was gefunden mit MoveTo aber das geht nicht verstehe die Syntax nicht

Gruss Sascha