В итоге сделал вот так:
## Код:
```
PROCEDURE CreateDir(VAR loc: Files.Locator; IN path: ARRAY OF CHAR);
VAR
   newloc: Files.Locator;
   file: Files.File;
BEGIN
   newloc := loc.This(path);
   file := Files.dir.New(newloc, Files.dontAsk);
END CreateDir;
```


Это правильно?