[Electronic_Arts]

Одним словом пришлось браться за отладчик и посмотреть что не так
оказалось вся проблема в этом

Код:

 s1:= ExtractFileDir(ParamStr(0));
 s2:= ExtractFilepath(ExtractFileDir(ParamStr(0)));
 delete(s1, 1, length(s2));
 ToS:=toDir+s1+'\';
 createdir(tos);  

createdir(tos);
Нужно было сперва создать директорию а потом перемешать туда все
первоначальный код исправный перемешаются даже пустые папки
оказалось дело не в WinAPI а у меня))))


Alegun спасибо за все... было приятно что не оставили одного в поле битвы..