procedure TForm1.Button1Click(Sender: TObject);
begin
  if not FileExists(Edit1.Text) then
//if not DirectoryExists(Edit1.Text) then 判断目录是否存在
  try
    begin
      CreateDir(Edit1.Text);
    //ForceDirectories(Edit1.Text);   创建目录
    end;
  finally
    raise Exception.Create('Cannot Create '+Edit1.Text);
  end;

end;


//delphi/8998