Помощь в среде разработки Delphi - лампочка на PaintBox

[Эцио]

Я начинающий программист. Мне требуется помощь в создании лампочки при помощи компонента PaintBox. Не могу понять, как построить её по координата. При помощи Arc, Poligon не получается, кто знает как построить по этим либо другим свойствам помогите пожалуйста.
Прошу кинуть код с подробным описание. Заранее спасибо

[Аватар]

А математически знаешь как построить сопряжение дуги и прямой? Без этого знания не построить методами канвас. Да и используя GDI+ тоже навряд-ли что-то получится без этого

[Эцио]

Математически. По координатам. У меня как раз именно это и не получается.

[Аватар]

Ну вот на бумаге построй сначала строго математически сопрягая дуги с прямыми и другими дугами. Начерталку открой для себя, аналитическую геометрию тоже. Тогда и прояснится как на канвас строить

[ura_111]

Что ты знаешь по: Arc, Poligon?
Что делают, как записываются, какие параметры требуют... И нарисуй (пусть будет в Paint) какой-нибудь конкретный пример для этих функций.

[newerow1989]

Макет

procedure TForm1.Button1Click(Sender: TObject);
begin
   With PaintBox1.Canvas do
   begin
      Arc(0,0,100,100,75,100,25,100);
      MoveTo(28,95);
      LineTo(28,150);
      LineTo(72,150);
      LineTo(72,95);
   end;
end;