графика в delphi

[s4egol]

мне нужно нарисовать и разукрасить дом. Как бы фасат получилось нарисовать а вот как нарисовать крышу и залить её каким нибудь цветом ума не приложу. помогите пжл. вот что есть на данный момент

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    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
    With Image1.Canvas do
    begin
        Pen.Width:=2;
        Pen.Color:=clBlack;
        Brush.Color:=clRed;
        Rectangle(70,100,340,250);
        Brush.Color:=clWhite;
        Rectangle(110,140,170,210);
        Brush.Color:=clWhite;
        Rectangle(225,140,285,210);
     end;
end;

end.

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

[Serge_Bliznykov]

А давайте начнём с того, что Вы в графическом редакторе (том же Пайнте) набросаете эскиз дома, который Вы хотите нарисовать в Delphi...