该程序出错？请帮调试。(20分)

调试时出错：project project1.exe raised exception class exception with message'
不能产生目录c:/temp'.process stopped.
----------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if not CreateDir('c: /temp') then
raise Exception.Create('不能产生目录c:/temp');
end;

end.

没有错，运行很正常

在DELPHI6下调试出错的。

if not CreateDir('c: /temp') then
//注意要把c:后的空格去掉，这样写：if not CreateDir('c:/temp') then

调试时出错"project project1.exe raised exception class exception with message'不能产生目录c:/temp'.process stopped."

把c:后的空格去掉，把c:/temp删掉再试