Дорожный знак Опции

[SSEAL]

Нужно нарисовать дорожный знак мойка автомобиля на paintbox. Как это сделать?

[Unconnected]

Машину мыть сам не умеешь?

[сотрудник ГИБДД]

Машину мыть сам не умеешь?

Нарушать??
Правила для кого придуманы? Выходит, знаки не нужны, так?
Мыться надо, где знак. А умеешь-неумеешь - никого не волнует.
Знаки соблюдать надо!

[sheka]

Только вставляй, уважаемый SSEAL, сотрудник ГИБДД:

 
Uses crt,graph;

const
     x0=170;
     y0=20;
     Hight_blue=420;
     Wide_blue=300;
     Wide_White=270;
     Wide_Leika=60;

var a,b:integer;

procedure init;
var GDriver,GMode:integer;
begin
     GDriver:=Detect;
     InitGraph(GDriver,GMode,'');
end;

begin
     Init;
     (*obsii fon*)
     SetBkColor(Black);
     (*fon vnutrennii sinii*)
     SetFillStyle(SolidFill,Blue);
     bar(x0,y0,x0+Wide_blue,y0+Hight_blue);
     (*fon vnutrennii belii*)
     SetFillStyle(SolidFill,White);
     bar(x0+round((Wide_Blue-Wide_White)/2),y0+40,x0+Wide_Blue-round((Wide_Blue-Wide_White)/2),y0+40+Wide_White);
     (*leika*)
     SetFillStyle(SolidFill,Black);
     bar(x0+round((Wide_blue-10)/2),y0+40+10,x0+round((Wide_blue+10)/2),y0+40+20);
     bar(x0+round((Wide_blue-Wide_Leika)/2),y0+40+20,x0+round((Wide_blue+Wide_Leika)/2),y0+40+30);
     (*strui*)
     SetColor(Black);
     setlinestyle(SolidLn,0,ThickWidth);
     line(x0+round((Wide_blue-Wide_Leika)/2),y0+40+35,x0+round((Wide_blue-Wide_White)/2)+10,y0+40+Wide_White-10);
     line(x0+round((Wide_blue+Wide_Leika)/2),y0+40+35,x0+round((Wide_blue+Wide_White)/2)-10,y0+40+Wide_White-10);
     line(x0+round((Wide_blue-Wide_Leika)/2)+round((Wide_Leika)/4),y0+40+35,x0+round((Wide_blue-Wide_Leika)/2),y0+40+30+40);
     line(x0+round((Wide_blue+Wide_Leika)/2)-round((Wide_Leika)/4),y0+40+35,x0+round((Wide_blue+Wide_Leika)/2),y0+40+30+40);
     line(x0+round((Wide_blue)/2),y0+40+35,x0+round((Wide_blue)/2),y0+40+30+40);
     (*SSEAL & Sotrudnik GIBDD*)
     SetColor({Light}Green);
     setlinestyle(SolidLn,0,NormWidth);
     (*tulovise*)
     line(x0+round((Wide_blue)/2),y0+40+140,x0+round((Wide_blue)/2),y0+40+200);
     (*levaya ruka*)
     line(x0+round((Wide_blue)/2),y0+40+170,x0+round((Wide_blue)/2)-40,y0+40+170-15);
     line(x0+round((Wide_blue)/2)-35,y0+40+145,x0+round((Wide_blue)/2)-40,y0+40+170-15);
     (*pravaya ruka*)
     line(x0+round((Wide_blue)/2),y0+40+170,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+10,y0+40+170+25,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+10,y0+40+170+30,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+15,y0+40+170+35,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+20,y0+40+170+37,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     line(x0+round((Wide_blue)/2)+25,y0+40+170+35,x0+round((Wide_blue)/2)+20,y0+40+170+30);
     (*levaya noga*)
     line(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-45,x0+round((Wide_blue)/2)-20,y0+40+Wide_White-15);
     line(x0+round((Wide_blue)/2)-20,y0+40+Wide_White-45,x0+round((Wide_blue)/2),y0+40+200);
     (*pravaya noga*)
     line(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-45,x0+round((Wide_blue)/2)+20,y0+40+Wide_White-15);
     line(x0+round((Wide_blue)/2)+20,y0+40+Wide_White-45,x0+round((Wide_blue)/2),y0+40+200);
     (*golova*)
     SetColor(LightRed);
     SetFillStyle(SolidFill,LightRed);
     PiesLice(x0+round((Wide_blue)/2),y0+40+110,0,360,30);
     (*schetka*)
     SetColor(Black);
     setlinestyle(SolidLn,0,ThickWidth);
     line(x0+round((Wide_blue)/2)-15,y0+40+155,
     x0+round((Wide_blue)/2)-15-round(45*cos(26/180*pi)),y0+40+155-round(45*sin(26/180*pi)));
     setlinestyle(SolidLn,0,NormWidth);
     for b:=0 to 15 do
     begin
          a:=3*b;
          line(x0+round((Wide_blue)/2)-15-round(a*cos(26/180*pi)),y0+40+155-round(a*sin(26/180*pi)),
          x0+round((Wide_blue)/2)-15-round(a*cos(26/180*pi))+round(10*cos((90-26)/180*pi)),
          y0+40+155-round(a*sin(26/180*pi))-round(10*sin((90-26)/180*pi)));
     end;
     readkey;
     CloseGraph;
end.

Добавлено через 2 мин.
Ой, извините, недочитал тему, это же на Делфи просили... а я так старался...