программа упорно не хочет работать

[kasatka]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, 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
   Canvas.Ellipse(100,100,200,200);
end;

end.

подскажите, что не так?

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

всё так. всё работает.

исходники: Project1.rar (844 байт)

исходники + EXEшник: Project1withEXE.rar (166.7 Кб)


что у Вас не так то?..

[kasatka]

[Fatal Error] Unit1.pas(36): Could not create output file 'Unit1.dcu'

ошибку выдает.

[Serge_Bliznykov]

[Fatal Error] Unit1.pas(36): Could not create output file 'Unit1.dcu'

Какой компилятор используете?
Проверяйте настройки, куда у Вас пишутся скомпилированные файлы. Похоже, что туда либо нет доступа, либо такого каталога просто нет.
Ну, или у вас просто битый Delphi....

[MyLastHit]

kasatka, тут помоему и без Промта понятно что:
Невозможно создать выходной файл "Unit1.dcu".
Попробуй File - Save Project As и укажи, как тебе сказал Serge_Bliznykov, каталог с неограниченым доступом. У тебя проект пытается сохраниться туда куда ему нельзя это делать. ТЕ по условию у тебя папка C:\ProgrFiles\Borland\Delphi\...
Если каталог С:\ProgFiles ограничено доступен, то просто пересохрани проект куда нибудь на диск Д или раб стол