[icWasya]

>>подскажите где я накосячил?

Код:

GetMem(Buf, SizeOf(PWideChar)); 

Это сколько памяти заказвыается? А потом

Код:

nMaxFile := 128;

Далее

Код:

lStructSize := SizeOf(DWORD);

Это какой размер структуры получается?