Diagrama de sistema de agua de una casa

[DaniMir]

Bueno, más bien estaba intentando hacer algo así:

Image2.Canvas.Pen.Color := ClMaroon;
Image2.Canvas.Pen.Width := 6;
Image2.Canvas.MoveTo(x1,y1);
Image2.Canvas.LineTo(x2,y2);
Image2.Canvas.Pen.Color := ClBlack;
Image2.Canvas.Pen.Width := 1;

Con esto puedo sacar las líneas para los tubos

pero ocupe un TBitmap para tratar de llamar o colocar las imagenes mediante un TButton con:

var
Casa : TBitMap;

Image2.Canvas.Rectangle(x1,y1,x2,y2);
Casa := TBitMap.Create;
Casa.LoadFromFile('casa.bmp');

Y si me dibuja el rectangulo en cualquier posicion del plano pero no carga la imagen