[РЕШЕНО][Delphi] Графика

[Vitalik81311]

Помогите, пожалуйста, сделать рисунок...(delphi)

Решение в следующем посте

[Vitalik81311]

Спасибо всем, кто помогал... Я сам уже сделал...

Получилось, вот как то так...

procedure TForm1.Button1Click(Sender: TObject);
 var x,y:integer;
begin
x:=clientwidth div 2;
y:=clientheight div 2;
with canvas do
 begin
  Image1.Canvas.pen.Width:=2;
 Image1.canvas.Ellipse(280,230,380,320);

 Image1.Canvas.MoveTo(450,350);
 Image1.Canvas.LineTo(400,200);
 Image1.Canvas.MoveTo(200,350);
 Image1.Canvas.LineTo(250,200);
 Image1.Canvas.MoveTo(450,350);
 Image1.Canvas.LineTo(200,350);
 Image1.Canvas.MoveTo(400,200);
 Image1.Canvas.LineTo(250,200);

 Image1.canvas.Ellipse(284,283,298,297);
 Image1.canvas.Ellipse(282,269,296,283);
 Image1.canvas.Ellipse(284,255,298,269);

 Image1.canvas.Ellipse(362,255,376,269);

 Image1.canvas.Ellipse(308,234,322,248);
 Image1.canvas.Ellipse(322,232,336,246);
 Image1.canvas.Ellipse(336,234,350,248);

 Image1.canvas.Ellipse(308,302,322,316);
 Image1.canvas.Ellipse(322,304,336,318);
 Image1.canvas.Ellipse(336,302,350,316);

 Image1.canvas.Brush.Color:=clGray;
 Image1.canvas.RoundRect(205, 176, 240, 185, 20, 40);
 Image1.canvas.RoundRect(410, 176, 445, 185, 20, 40);

 Image1.canvas.Brush.Color:=clWhite;
 Image1.canvas.RoundRect(200, 165, 450, 180, 10, 40);

 Image1.canvas.Brush.Color:=clblack;
 Image1.canvas.Rectangle(285,160,300,200);
 Image1.canvas.Rectangle(356,160,370,200);

 Image1.Canvas.MoveTo(380,290);
 Image1.Canvas.LineTo(372,285);

 Image1.Canvas.MoveTo(378,295);
 Image1.Canvas.LineTo(370,290);

 Image1.Canvas.MoveTo(370,290);
 Image1.Canvas.LineTo(372,285);
 Image1.Canvas.pen.Width:=3;
 Image1.canvas.Ellipse(374,291,383,296);
 end;
 end;
end.