在Delphi中，可以使用SysUtils單元中的CreateDir函數來創建文件夾。下面是一個示例代碼：
uses
SysUtils;
procedure CreateFolder(const folderName: string);
begin
if not DirectoryExists(folderName) then
CreateDir(folderName);
end;
// 示例用法
var
folderName: string;
begin
folderName := 'C:\MyFolder';
CreateFolder(folderName);
end;
在上述示例中，我們首先檢查文件夾是否已經存在（通過調用DirectoryExists函數），如果不存在，則調用CreateDir函數來創建文件夾。
