#pas
//[function ForceDirectories]
function ForceDirectories(Dir: string): Boolean;
begin
 Result := Length(Dir) > 0; {Centronix}
 If not Result then Exit;                                           // Dir не задан, а событие получили
 Dir := ExcludeTrailingPathDelimiter(Dir);
 If (Length(Dir) < 3) or DirectoryExists(Dir) or
   (ExtractFilePath(Dir) = Dir) then Exit; // avoid 'xyz:\' problem.      // Директорий есть - опять событие
 Result := ForceDirectories(ExtractFilePath(Dir)) and CreateDir(Dir); // Директорий создан - опять событие
end;