Domecek

procedure TForm1.Button5Click(Sender: TObject);
var i:byte;
    Bod:array of TPoint;
begin
  Image1.Canvas.Clear;
  Image1.Canvas.MoveTo(Image1.Width,0);
  Image1.Canvas.Brush.Color:=clYellow;
  Image1.Canvas.Pen.Color:=clYellow;
  Image1.Canvas.Ellipse(Image1.Width+50,-50,Image1.Width-100,100);
  Image1.Canvas.Pen.Width:=2;
  randomize;
  for i:=1 to 10 do
    begin
      Image1.Canvas.MoveTo(Image1.Width,0);
      Image1.Canvas.LineTo(Image1.Width-random(150),random(200));
    end;
  Image1.Canvas.Pen.Color:=clMaroon;
  Image1.Canvas.Brush.Color:=clMaroon;
  Image1.Canvas.Rectangle(1,Image1.Height,Image1.Width div 2,Image1.Height div 2);
  Image1.Canvas.Pen.Color:=clRed;
  Image1.Canvas.Brush.Color:=clRed;
  SetLength(Bod, 3);
  Bod[0]:=Point(Image1.Width div 4, Image1.Height div 4);
  Bod[1]:=Point(1,Image1.Height div 2);
  Bod[2]:=Point(Image1.Width div 2,Image1.Height div 2);
  Image1.Canvas.Polygon(Bod);
  Image1.Canvas.Brush.Color:=clMaroon;
  Image1.Canvas.Pen.Color:=clMaroon;
  Image1.Canvas.Rectangle(Image1.Width-(Image1.Width div 4),Image1.Height,Image1.Width-(Image1.Width div 4+20),Image1.Height-(Image1.Height div 3));
  Image1.Canvas.Brush.Color:=clGreen;
  Image1.Canvas.Pen.Color:=clGreen;
  Image1.Canvas.Ellipse(Image1.Width-(Image1.Width div 4-15),Image1.Height-(Image1.Height div 3-20),Image1.Width-(Image1.Width div 3+10),Image1.Height-(Image1.Height div 2));
  Image1.Canvas.Brush.Color:=$00000000;
  Image1.Canvas.Pen.Color:=$00000000;
  Image1.Canvas.Rectangle(Image1.Width div 2-40,Image1.Height,Image1.Width div 2-10,Image1.Height-(Image1.Height div 5));
  Image1.Canvas.Brush.Color:=clSkyBlue;
end;