Das Haus vom Nikolaus Konsolenanwendung

[Luckie]

Mit einem Fenster ist es wesentlich einfacher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Button1.Tag of
    0: begin
         Canvas.MoveTo(50,600);
         Canvas.LineTo(300,600);
       end;
    1: begin
         Canvas.LineTo(300, 350);
       end;
    2: begin
         Canvas.LineTo(50, 350);
       end;
    3: begin
         Canvas.LineTo(175, 200);
       end;
    4: begin
         Canvas.LineTo(300, 350);
       end;
    5: begin
         Canvas.LineTo(50,600);
       end;
    6: begin
         Canvas.LineTo(50, 350);
       end;
    7: begin
         Canvas.LineTo(300,600);
       end;
  end;
  Button1.Tag := Button1.Tag + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Tag := 0;
end;

Die Lösung ist nicht optimiert, sondern nur mal so schnell in zwei Minuten hingetippt.