Нарисуйте пожалуйста знак "Конец запрещения обгона грузовым автомобилям"

procedure TForm1.Button1Click(Sender: TObject);
begin
with Shape1 do
begin
Shape:=stEllipse;
  Width:=300;
  Height:=300;
  Left:=Form1.ClientWidth div 2-Shape1.Width div 2;
  Top:=Form1.ClientHeight div 2-Shape1.Height div 2;
  Pen.Color:=clWhite;
  Brush.Color:=clWhite;

procedure TForm1.FormCreate(Sender: TObject);
begin
with PaintBox1 do
 begin
  top:=10;
  left:=10;
  width:=300;
  height:=300;
  c:=150;
  r:=c-60;
  r1:=r-5;
 end;
with Form1 do
 begin
  clientwidth:=320;
  clientheight:=320;
  position:=poScreencenter;
 end;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var x1,y1,x2,y2,i:integer;
begin
 with PaintBox1.Canvas do
  begin
   brush.Color:=clWhite;
   FillRect(Canvas.ClipRect);
   ellipse(c-r,c-r,c+r,c+r);
   pen.Width:=4;
   ellipse(c-r1,c-r1,c+r1,c+r1);
   x1:=c+round(r1*cos(pi/3));
   y1:=c-round(r1*sin(pi/3));
   x2:=c-round(r1*cos(pi/3));
   y2:=c+round(r1*sin(pi/3));
   pen.Width:=2;
   moveto(x1,y1);
   lineto(x2,y2);
   for i:=1 to 2 do
    begin
      x1:=c+round(r1*cos(pi/3-i*pi/60));
      y1:=c-round(r1*sin(pi/3-i*pi/60));
      x2:=c-round(r1*cos(pi/3+i*pi/60));
      y2:=c+round(r1*sin(pi/3+i*pi/60));
      moveto(x1,y1);lineto(x2,y2);
      x1:=c-round(r1*cos(pi/3-i*pi/60));
      y1:=c+round(r1*sin(pi/3-i*pi/60));
      x2:=c+round(r1*cos(pi/3+i*pi/60));
      y2:=c-round(r1*sin(pi/3+i*pi/60));
      moveto(x1,y1);lineto(x2,y2);
    end;
   pen.Width:=3;
   moveto(c+10,c);lineto(c+15,c-15);
   lineto(c+40,c-15);lineto(c+45,c);
   brush.Color:=clBlack;
   roundrect(c+5,c,c+50,c+20,5,5);
   roundrect(c+8,c+22,c+13,c+30,2,2);
   roundrect(c+40,c+22,c+45,c+30,2,2);
   roundrect(c-55,c-40,c-5,c+17,5,5);
   roundrect(c-50,c+17,c-43,c+30,2,2);
   roundrect(c-17,c+17,c-10,c+30,2,2);
   ellipse(c-43,c+5,c-25,c+20);
  end;
end;