[Страдалецъ]

Ну вот я вам начал, пока не уперся в непонятку:

Код:

 
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Pen.Color := clBlack;
 Canvas.Brush.Color := clWhite;
 Canvas.Rectangle(0, 0, 400, 300);
 Canvas.Polygon([Point(0, 5),Point(0, 295),Point(100, 215),Point(100, 75)]);
 Canvas.Polygon([Point(300, 75),Point(300, 215),Point(100, 215),Point(100, 75),
                 Point(150, 75),Point (150, 160),Point(250, 160),Point(250, 110),
                 Point(150, 110),Point(150, 75)]);
 Canvas.Polygon([Point(300, 215),Point(350, 255),Point(350, 85),Point(400, 55),
                 Point(400, 5),Point(300, 75)]);
 Canvas.Polygon([Point(0, 0),Point(0, 5),Point(100, 75),Point(100, 70)]);
 Canvas.Polygon([Point(100, 70),Point(100, 75),Point(300, 75),Point(300, 70)]);
 Canvas.Polygon([Point(300, 70),Point(300, 75),Point(400, 5),Point(400, 0)]);
 Canvas.Polygon([Point(0, 295),Point(0, 300),Point(100, 220),Point(100, 215)]);
 Canvas.Polygon([Point(100, 215),Point(100, 220),Point(300, 220),Point(300, 215)]);
 Canvas.Polygon([Point(300, 220),Point(300, 215),Point(350, 255),Point(350, 260)]);
 Canvas.Polygon([Point(0, 0),Point(400, 0),Point(300, 70),Point(100, 70)]);
 Canvas.Polygon([Point(0, 300),Point(100, 220),Point(300, 220),Point(400, 300)]);
end;

там у вас дальше идет:

#region Контуры стен

g.DrawRectangle(pen, new Rectangle(100, 70, 200, 150));

А он вообще не в тему.