[rk_51]

Доброго времени суток. Начал осваивать Делфи, задачу нужно решить составил модуль ООП программы, вроде все по учебнику, но не могу запустить,пишет ошибка создания формы что я делаюне так?. Набрал код в блокноте, скопировал в delphi Borland 6, Господа админы и профессионалы не откажите в помощи. Спасибо.
Мне нужно нарисовать дом с открывающимися окнами и дверью. listing привожу

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Var x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,x8:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
 With canvas do
  begin

  {++++++++++++}
   x:=0;
   y:=0;
   x1:=4;
   y1:=2;
   x2:=10;
   y2:=10;
   x3:=16;
   y3:=12;
   x4:=23;
   y4:=18;
   x5:=30;
   y5:=20;
   x6:=36;
   y6:=40
   x7:=40
   x8:=20

   Image1.Canvas.Moveto(x,y);
   Image1.Canvas. Lineto(x7,y);
   Image1.Canvas. Lineto(x7,y5);
   Image1.Canvas. Lineto(x8,y6);
   Image1.Canvas. Lineto(x,y6);
   Image1.Canvas. Lineto(x,y);

   
   Image1.Canvas.Moveto(x1,y2);
   Image1.Canvas. Lineto(x2,y2);
   Image1.Canvas. Lineto(x2,y4);
   Image1.Canvas. Lineto(x1,y4);
   Image1.Canvas. Lineto(x1,y2);

   Image1.Canvas.Moveto(x5,y2);
   Image1.Canvas. Lineto(x6,y2);
   Image1.Canvas. Lineto(x6,y4);
   Image1.Canvas. Lineto(x5,y4);
   Image1.Canvas. Lineto(x5,y2);

   Image1.Canvas.Moveto(x3,y1);
   Image1.Canvas. Lineto(x4,y1);
   Image1.Canvas. Lineto(x4,y3);
   Image1.Canvas. Lineto(x3,y3);
   Image1.Canvas. Lineto(x3,y1);


  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Image1.Canvas.pen.color:=clWhite;



   Image1.Canvas.Moveto(x3,y1);
   Image1.Canvas. Lineto(x4,y1);
   Image1.Canvas. Lineto(x4,y3);
   Image1.Canvas. Lineto(x3,y3);
   Image1.Canvas. Lineto(x3,y1);

    Image1.Canvas.pen.color:=clBlack;
   
  

   x3:=x3-4;

   x4:=x4-4;



   Image1.Canvas.Moveto(x3,y1);
   Image1.Canvas. Lineto(x4,y1);
   Image1.Canvas. Lineto(x4,y3);
   Image1.Canvas. Lineto(x3,y3);
   Image1.Canvas. Lineto(x3,y1);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Image1.Canvas.pen.color:=clWhite;


   
   Image1.Canvas.Moveto(x1,y2);
   Image1.Canvas. Lineto(x2,y2);
   Image1.Canvas. Lineto(x2,y4);
   Image1.Canvas. Lineto(x1,y4);
   Image1.Canvas. Lineto(x1,y2);

   Image1.Canvas.Moveto(x5,y2);
   Image1.Canvas. Lineto(x6,y2);
   Image1.Canvas. Lineto(x6,y4);
   Image1.Canvas. Lineto(x5,y4);
   Image1.Canvas. Lineto(x5,y2);


    Image1.Canvas.pen.color:=clBlack;
       
   x1:=x1-4;

   x2:=x2-4;

   x5:=x5-4;

   x6:=x6-4;

   
   Image1.Canvas.Moveto(x1,y2);
   Image1.Canvas. Lineto(x2,y2);
   Image1.Canvas. Lineto(x2,y4);
   Image1.Canvas. Lineto(x1,y4);
   Image1.Canvas. Lineto(x1,y2);

   Image1.Canvas.Moveto(x5,y2);
   Image1.Canvas. Lineto(x6,y2);
   Image1.Canvas. Lineto(x6,y4);
   Image1.Canvas. Lineto(x5,y4);
   Image1.Canvas. Lineto(x5,y2);
end;

end.

Админ: Учимся правильно оформлять код!