procedure GetFiles(const Path: Widestring);
var
FD : TWin32FindDataW;
FH : THandle;
Begin
FH := Windows.FindFirstFileW(PWideChar(Path + '*.*' ), FD);
repeat
  if (FH<>INVALID_HANDLE_VALUE) and (FD.cFileName <> widestring('.')) and(FD.cFileName<>widestring('..')) then
begin
--------------------------------------
end;
until Windows.FindNextFileW(FH, FD) = false;
if FH <> 0 then Windows.FindClose(FH);
end;