创建文件目录报错，麻烦帮我看看

procedure TForm1.Button5Click(Sender: TObject);

var

  path1:string;

begin

  path1:=trim(extractfilepath(application.ExeName)+'\'+'123');

  if not DirectoryExists(path1) then

    if not CreateDir(path1) then

    raise Exception.Create('Cannot create '+path1);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if not DirectoryExists('d:\tmp') then

    if not CreateDir('d:\tmp') then

      raise Exception.Create('Cannot create '+'d:\tmp');



end;