Procedure kresli(x,y,f:integer);
var i:integer;
begin
  form1.Image1.Canvas.Pen.Color:=f;
  Form1.Image1.Canvas.Ellipse(x+10,y-20,x+20,y-10);
  Form1.Image1.Canvas.Rectangle(x+10,y-10,x+20,y+10);
  Form1.Image1.Canvas.MoveTo(x,y);
  Form1.Image1.Canvas.LineTo(x+30,y);
  For i:= 1 to 7 do
  begin
    Form1.Image1.Canvas.MoveTo(x,y);
    Form1.Image1.Canvas.LineTo(x-15,y+7-i*2);
  end;
end;