1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure ProcessPath (const EditText: string; var Drive: Char;
  var DirPart: string; var FilePart: string);
function MinimizeName(const Filename: TFileName; Canvas: TCanvas;
  MaxLen: Integer): TFileName;
function SelectDirectory(var Directory: string;
  Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString;
  var Directory: string): Boolean; overload;
function DirectoryExists(const Name: string): Boolean;
function ForceDirectories(const Dir: string): Boolean;