RUN时提示“Could not create outfile ‘.../Main.dcu'”。(50分)

以下代码，RUN时提示“Could not create outfile ‘.../Main.dcu'”。
请问是哪里出错。


unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TfrmFunction = class(TForm)
lblHint: TLabel;
edtX: TEdit;
lblY: TLabel;
btnCalc: TButton;
procedure btnCalcClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmFunction: TfrmFunction;
var x:integer ;
implementation

{$R *.dfm}

procedure TfrmFunction.btnCalcClick(Sender: TObject);

begin
x:=StrToInt(edtX.Text);
if x=0 then lblY.Caption:='Y的值为：0'
else if x>0 then lblY.Caption:='Y的值为：1'
else lblY.Caption:='Y的值为：-1';
end;

end.

先删除保存目录下的同名文件

补充：如果在Project中指定了工程编译文件的Output Path，就要检查该目录是否存在，
如果存在，就要检查目录的可写性以及同名文件的可写性。

请问哪一个变量是设置输出目录的？

你编译的DCU可能正在被占用，关掉你程序再编译试试看

DCU的输出路径：
菜单->Project->Options->Directories/Conditionals->Unit output directory

在DCU路径上面的那个Output directory则是Exe（或DLL）的输出路径。

这不是代码的问题,面是输出环境设置有误的问题,creation-zy说的你试一下,另外,我补充一下:有时用到了大量BUG的第三方控件也会这样.

要么设置路径，如果路径已经存在，请检查输出文件的属性是否只读，如果只读，请改为可写，或者该文件所在的文件夹的属性是否只读

看看你的输出目录设置对了没有
如果不存在这个目录就会出现这样的问题

ths

多人接受答案了。