如何在Delphi中递归创建文件夹？

uses
  System.IOUtils;

function RecursiveCreateFolder(const FolderPath: string): Boolean;
var
  LParentFolder: string;
begin
  Result := True;
  LParentFolder := TPath.GetDirectoryName(FolderPath);
  if (not TDirectory.Exists(LParentFolder)) then
  begin
    Result := RecursiveCreateFolder(LParentFolder);
    if (not Result) then
      Exit;
  end;
  TDirectory.CreateDirectory(FolderPath);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RecursiveCreateFolder('C:\MyFolder\SubFolder\SubSubFolder');
end;