Помогите дорисовать электрическую схему

void __fastcall TForm1::Button1Click(TObject *Sender)
{ // Заливка прозрачная(без фона)
Image1->Canvas->Brush->Style=bsSolid;
// Вертикальные линии в середине
Image1->Canvas->MoveTo(300,135);
Image1->Canvas->LineTo(300,165);
Image1->Canvas->MoveTo(300,235);
Image1->Canvas->LineTo(300,330);
// Треугольник
Image1->Canvas->MoveTo(260,140);
Image1->Canvas->LineTo(360,200);
Image1->Canvas->LineTo(260,260);
Image1->Canvas->LineTo(260,140);
// горизонтальная линия справа
Image1->Canvas->MoveTo(360,200);
Image1->Canvas->LineTo(440,200);
// линия вниз и влево
Image1->Canvas->MoveTo(400,200);
Image1->Canvas->LineTo(400,300);
Image1->Canvas->LineTo(365,300);
// Зубчики влево рисуем ломаной
// Задаем координаты вершин
TPoint points[8];
points[0].x=365;points[0].y=300;
points[1].x=362;points[1].y=305;
points[2].x=356;points[2].y=295;
points[3].x=350;points[3].y=305;
points[4].x=344;points[4].y=295;
points[5].x=338;points[5].y=305;
points[6].x=332;points[6].y=295;
points[7].x=329;points[7].y=300;
Image1->Canvas->Polyline(points,7);
// Перемещаемся в конец зубчиков
Image1->Canvas->MoveTo(329,300);
// Горизонтальная линия влево
Image1->Canvas->LineTo(220,300);
// Верхняя горизонтальная линия слева от треугольника
Image1->Canvas->MoveTo(260,160);
Image1->Canvas->LineTo(180,160);
// Нижняя горизонтальная линия слева от треугольника
Image1->Canvas->MoveTo(260,240);
Image1->Canvas->LineTo(220,240);
// Линия вниз
Image1->Canvas->LineTo(220,320);
// Зубчики вниз рисуем ломаной
// Задаем координаты вершин
points[0].x=320;points[0].y=320;
points[1].x=225;points[1].y=323;
points[2].x=215;points[2].y=329;
points[3].x=225;points[3].y=335;
points[4].x=215;points[4].y=341;
points[5].x=225;points[5].y=347;
points[6].x=215;points[6].y=353;
points[7].x=220;points[7].y=358;
Image1->Canvas->Polyline(points,7);
// Перемещаемся в конец зубчиков
Image1->Canvas->MoveTo(220,358);
// Линия вниз
Image1->Canvas->LineTo(220,380);
// Три горизонтальные линии внизу
int x=10; int y=380;
for(int i=0;i<3;i++){
Image1->Canvas->MoveTo(220-x,y);
Image1->Canvas->LineTo(220+x,y);
x-=3; y+=5;
}
Image1->Canvas->Brush->Color=clBlack;
Image1->Canvas->Ellipse(393,193,407,207);
// Заливка окружности
Image1->Canvas->Ellipse(213,293,227,307);
// Заливка окружности
Image1->Canvas->Brush->Color=clWhite;
Image1->Canvas->Font->Color=clBlack;
Image1->Canvas->Font->Size=12;
// Ввод текста
Image1->Canvas->TextOut(140,150,"Ввод");
Image1->Canvas->TextOut(300,40,"+V");
Image1->Canvas->TextOut(300,330,"-V");
Image1->Canvas->TextOut(330,275,"10k");
Image1->Canvas->TextOut(225,330,"100");
// Размер шрифта 10
Image1->Canvas->Font->Size=10;
Image1->Canvas->TextOut(305,150,"12");
Image1->Canvas->TextOut(305,235,"10");
Image1->Canvas->TextOut(355,180,"11");
Image1->Canvas->TextOut(250,140,"6");
Image1->Canvas->TextOut(250,220,"5");
Image1->Canvas->TextOut(275,192,"LH0032");
// Размер шрифта 14
Image1->Canvas->Font->Size=14;
Image1->Canvas->TextOut(265,150,"+");
Image1->Canvas->TextOut(265,230,"-");
}