Файл: Разработка программного модуля на языке высокого уровня для решения инженерных задач на примере расчёта и построения резьбовых соединений.docx

SHAIBA_GOST_11371_78[i,2]: = strtofloat(Box1.Text)*2.2;

// присвоение значений толщины

SHAIBA_GOST_11371_78[i,3]: = strtofloat(Box1.Text)*0.15;

end;

// нахождение номера строки таблицы стандартов ГОСТ

k: = 0;

For i: = 1 to 12 do If strtofloat(Box1.Text) = BOLT_GOST_7798_70[i,1]

then k: = i;

case Figure.ItemIndex of

// болтовое соединение

0:begin

// видимость элементов

edit1.Visible: = True;

edit2.Visible: = True;

Label2.Visible: = True;

Label3.Visible: = True;

// рассчет длины болта

DLINA_R: = strtofloat(edit1.Text)+strtofloat(edit2.Text)+

SHAIBA_GOST_11371_78[k,3]

+GAIKA_GOST_5915_70[k,3]+0.3*BOLT_GOST_7798_70[k,1];

// подбор длины по ГОСТу

q: = 0;

For i: = 1 to 30 do If DLINA_R
= i;

DLINA: = GOST_DLINA[q];

// переменная масштаба

M: = strtofloat(edit3.Text);

// построение изображения

With FORM1.Canvas do

Begin

// для очистки поверхности

Pen.Style: = psSolid; // обычная линия

pen.Width: = 2; //толщина линии

{!}pen.Color: = clWhite; //черный цвет заливки

Brush.Style: = bsSolid; // способ заливки, заливка одним цветом

{}Brush.Color: = clBlack; // цвет заливки белый

Rectangle(5 ,5, 633, 305);

// основное изображение болта

Pen.Style: = psSolid; //обычная линия

{!}pen.Color: = clWhite; //черный цвет линии

pen.Width: = 2; //толщина линии

{!}Brush.Color: = clWhite; //черный цвет киси

Brush.Style: = bsBDiagonal; //штриховка тип 1

Rectangle(211 , round(150-0.7*SHAIBA_GOST_11371_78[k,2]*M),

round(211+strtofloat(edit2.Text)*M),

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //фланец №2

Brush.Style: = bsFDiagonal; //штриховка тип 2

Rectangle(round(212-strtofloat(edit1.Text)*M) , round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M), 212,

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //фланец №1

Brush.Style: = bsSolid; //заливка одним цветом

{}Brush.Color: = clBlack; // белый цвет заливки

Rectangle(round(211+strtofloat(edit2.Text)*M-DLINA*M) , round(150-

0.5*BOLT_GOST_7798_70[k,1]*M), round(211+strtofloat(edit2.Text)*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); //тело болта

pen.Width: = 1; //толщина

Rectangle(round(211+strtofloat(edit2.Text)*M-DLINA*M) , round(150-

0.46*BOLT_GOST_7798_70[k,1]*M),

round(211+strtofloat(edit2.Text)*M),

round(150+0.44*BOLT_GOST_7798_70[k,1]*M)); //резьба

pen.Width: = 2; //толщина

Rectangle(round(210+strtofloat(edit2.Text)*M) , round(150-

0.5*BOLT_GOST_7798_70[k,4]*M),

round(211+strtofloat(edit2.Text)*M+BOLT_GOST_7798_70[k,3]*M) ,

round(150+0.5*BOLT_GOST_7798_70[k,4]*M)); //головка болта

Rectangle(round(211-strtofloat(edit1.Text)*M-

GAIKA_GOST_5915_70[k,3]*M-SHAIBA_GOST_11371_78[k,3]*M) ,

round(150-0.5*GAIKA_GOST_5915_70[k,4]*M), round(211-

strtofloat(edit1.Text)*M-SHAIBA_GOST_11371_78[k,3]*M) ,

round(150+0.5*GAIKA_GOST_5915_70[k,4]*M)); //гайка

Brush.Style: = bsClear; // нет заливки

Rectangle(round(211-strtofloat(edit1.Text)*M-

GAIKA_GOST_5915_70[k,3]*M-SHAIBA_GOST_11371_78[k,3]*M) ,

round(150-0.5*BOLT_GOST_7798_70[k,1]*M),

round(211+strtofloat(edit2.Text)*M+BOLT_GOST_7798_70[k,3]*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); //грани болта

Brush.Style: = bsSolid; // заливка одним цветом

{}Brush.Color: = clBlack; // белый цвет заливки

---

Rectangle(round(209-strtofloat(edit1.Text)*M-

SHAIBA_GOST_11371_78[k,3]*M) , round(150-

0.5*SHAIBA_GOST_11371_78[k,2]*M), round(213-

strtofloat(edit1.Text)*M) ,

round(150+0.5*SHAIBA_GOST_11371_78[k,2]*M)); //шайба

pen.Width: = 1; //толщина

Pen.Style: = psDashDot;//штрих-пунктирная линия

MoveTo(round(211+strtofloat(edit2.Text)*M-DLINA*M-10), 150);

//начало для горизонтальной оси симметрии

Lineto(round(211+strtofloat(edit2.Text)*M+BOLT_GOST_7798_70[k,3]*

M+10), 150); //линия горизонтальной оси симметрии

//болт вид сверху

Pen.Style: = psSolid; {обычная линия}

pen.Width: = 2; {толщина 2 пик}

Rectangle(round(530-0.7*BOLT_GOST_7798_70[k,2]*M) , round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M),

round(530+0.7*BOLT_GOST_7798_70[k,2]*M) ,

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); {Плоскость детали}

Ellipse(round(530-0.5*BOLT_GOST_7798_70[k,1]*M) , round(150-

0.5*BOLT_GOST_7798_70[k,1]*M),

round(530+0.5*BOLT_GOST_7798_70[k,1]*M) ,

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); {тело болта}

MoveTo(round(530-0.5*BOLT_GOST_7798_70[k,2]*M),

round(150+0.47*BOLT_GOST_7798_70[k,1]*M)); {гайка}

Lineto(round(530-0.5*BOLT_GOST_7798_70[k,2]*M), round(150-

0.47*BOLT_GOST_7798_70[k,1]*M)); {гайка}

Lineto(530, round(150-0.53*BOLT_GOST_7798_70[k,4]*M)); {гайка}

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M), round(150-

0.47*BOLT_GOST_7798_70[k,1]*M)); {гайка}

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M),

round(150+0.47*BOLT_GOST_7798_70[k,1]*M)); {гайка}

Lineto(530, round(150+0.53*BOLT_GOST_7798_70[k,4]*M)); {гайка}

Lineto(round(530-0.5*BOLT_GOST_7798_70[k,2]*M),

round(150+0.47*BOLT_GOST_7798_70[k,1]*M)); {гайка}

pen.Width: = 1; {толщина 1 пик}

Pen.Style: = psDashDot;{штрих-пунктирная линия}

MoveTo(round(530-0.5*BOLT_GOST_7798_70[k,2]*M-10), 150);

{горизонтальная ось симметрии}

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M+10), 150);

{горизонтальная ось симметрии}

MoveTo(530, round(150-0.53*BOLT_GOST_7798_70[k,4]*M-10));

{вертикальная ось симметрии}

Lineto(530, round(150+0.53*BOLT_GOST_7798_70[k,4]*M+10));

{вертикальная ось симметрии}

//выноски размеров

{Для вида слева}

Pen.Style: = psSolid; {обычная линия}

{шляпка}

MoveTo(round(210+strtofloat(edit2.Text)*M), round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M-6*M));

Lineto(round(210+strtofloat(edit2.Text)*M), 150);

MoveTo(round(211+strtofloat(edit2.Text)*M+BOLT_GOST_7798_70[k,3]

*M)-1, round(150-0.7*SHAIBA_GOST_11371_78[k,2]*M-6*M));

Lineto(round(211+strtofloat(edit2.Text)*M+BOLT_GOST_7798_70[k,3]*

M)-1, 150);

//горизонтальная

MoveTo(round(210+strtofloat(edit2.Text)*M),round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M-4.7*M));

Lineto(round(211+strtofloat(edit2.Text)*M+BOLT_GOST_7798_70[k,3]*

M)-1,round(150-0.7*SHAIBA_GOST_11371_78[k,2]*M-4.7*M));

{диаметр болта}

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-30),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)-1);

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M),

round(150-0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-30),

round(150-0.5*BOLT_GOST_7798_70[k,1]*M)-1);

//вертикальная

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-

24),round(150+0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-

24),round(150-0.5*BOLT_GOST_7798_70[k,1]*M)-1);

{диаметр шайбы}

MoveTo(round(209-strtofloat(edit1.Text)*M-

SHAIBA_GOST_11371_78[k,3]*M), round(150-

0.5*SHAIBA_GOST_11371_78[k,2]*M)-1);

---

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-55),

round(150-0.5*SHAIBA_GOST_11371_78[k,2]*M)-1);

MoveTo(round(209-strtofloat(edit1.Text)*M-

SHAIBA_GOST_11371_78[k,3]*M),

round(150+0.5*SHAIBA_GOST_11371_78[k,2]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-55),

round(150+0.5*SHAIBA_GOST_11371_78[k,2]*M)-1);

//вертикальная

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-

44),round(150+0.5*SHAIBA_GOST_11371_78[k,2]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-

44),round(150-0.5*SHAIBA_GOST_11371_78[k,2]*M)-1);

Label17.Visible: = True;

Label18.Visible: = True;

Label19.Visible: = True;

end;

// размеры вывод

GroupBox2.Caption: = 'Болт';

GroupBox2.Visible: = True;

GroupBox3.Visible: = True;

GroupBox4.Visible: = True;

edit4.Text: = floattostr(BOLT_GOST_7798_70[k,2]);

edit5.Text: = floattostr(BOLT_GOST_7798_70[k,3]);

edit6.Text: = floattostr(BOLT_GOST_7798_70[k,4]);

LABEL8.Caption: = 'Принимаем стандартную длину по ГОСТ 7798-70, равную

'+floattostr(DLINA) + ' мм';

edit8.Text: = floattostr(GAIKA_GOST_5915_70[k,2]);

edit9.Text: = floattostr(GAIKA_GOST_5915_70[k,3]);

edit10.Text: = floattostr(GAIKA_GOST_5915_70[k,2]);

edit11.Text: = floattostr(SHAIBA_GOST_11371_78[k,2]);

edit12.Text: = floattostr(SHAIBA_GOST_11371_78[k,3]);

label14.Caption: = 'Болт '+'М'+ box1.Text +' х '+floattostr(DLINA)+'.58

'+'ГОСТ 7798-70';

label15.Caption: = 'Гайка ' + 'M'+ box1.Text +' х '+'1,25.5 '+'ГОСТ 5915-

70';

label16.Caption: = 'Шайба ' + '1.'+ box1.Text +'.01 '+'ГОСТ 11371-78';

end;

// шпилечное соединение

1:begin

// видимость элементов

edit1.Visible: = True;

edit2.Visible: = False;

Label2.Visible: = True;

Label3.Visible: = False;

// рассчет длины шпильки

DLINA_R: = strtofloat(edit1.Text)+ SHAIBA_GOST_11371_78[k,3]

+GAIKA_GOST_5915_70[k,3]+0.7*BOLT_GOST_7798_70[k,1];

// подбор длины по ГОСТу

q: = 0;

For i: = 1 to 30 do If DLINA_R
= i;

DLINA: = GOST_DLINA[q];

// переменная масштаба

M: = strtofloat(edit3.Text);

// построение изображения

With FORM1.Canvas do

Begin

Pen.Style: = psSolid; // обычная линия

pen.Width: = 1; // толщина

// для очистки поверхности

Pen.Style: = psSolid; // обычная линия

pen.Width: = 1; //толщина линии

pen.Color: = clWindowText; //черный цвет заливки

Brush.Style: = bsSolid; // способ заливки, заливка одним цветом

Brush.Color: = clWindow; // цвет заливки белый

Rectangle(0 ,0, 633, 305);

// основное изображение шпильки

Pen.Style: = psSolid; //обычная линия

pen.Color: = clBlack; //черный цвет линии

pen.Width: = 2; //толщина линии

Brush.Color: = clBlack; //черный цвет киси

Brush.Style: = bsBDiagonal; //штриховка тип 1

Rectangle(301 , round(150-0.7*SHAIBA_GOST_11371_78[k,2]*M),

round(301+1.5*GAIKA_GOST_5915_70[k,1]*M),

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //фланец №2

Brush.Style: = bsFDiagonal; //штриховка тип 2

Rectangle(round(302-strtofloat(edit1.Text)*M) , round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M), 302,

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //фланец №1

Brush.Style: = bsSolid; //заливка одним цветом

Brush.Color: = clWhite; // белый цвет заливки

Rectangle(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M) ,

round(150-0.5*BOLT_GOST_7798_70[k,1]*M),

round(301+GAIKA_GOST_5915_70[k,1]*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); //тело шпильки

---

pen.Width: = 1; //толщина

Rectangle(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M) ,

round(150-0.46*BOLT_GOST_7798_70[k,1]*M),

round(301+GAIKA_GOST_5915_70[k,1]*M),

round(150+0.44*BOLT_GOST_7798_70[k,1]*M)); //резьба

pen.Width: = 2; //толщина

Rectangle(round(301-strtofloat(edit1.Text)*M-

GAIKA_GOST_5915_70[k,3]*M-SHAIBA_GOST_11371_78[k,3]*M) ,

round(150-0.5*GAIKA_GOST_5915_70[k,4]*M), round(301-

strtofloat(edit1.Text)*M-SHAIBA_GOST_11371_78[k,3]*M) ,

round(150+0.5*GAIKA_GOST_5915_70[k,4]*M)); //гайка

Brush.Style: = bsClear; // нет заливки

Rectangle(round(301-strtofloat(edit1.Text)*M-

GAIKA_GOST_5915_70[k,3]*M-SHAIBA_GOST_11371_78[k,3]*M) ,

round(150-0.5*BOLT_GOST_7798_70[k,1]*M),

round(301+BOLT_GOST_7798_70[k,1]*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); //грани гайки

Brush.Style: = bsSolid; // заливка одним цветом

Rectangle(round(299-strtofloat(edit1.Text)*M-

SHAIBA_GOST_11371_78[k,3]*M) , round(150-

0.5*SHAIBA_GOST_11371_78[k,2]*M), round(303-

strtofloat(edit1.Text)*M) ,

round(150+0.5*SHAIBA_GOST_11371_78[k,2]*M)); //шайба

pen.Width: = 1; //толщина

Pen.Style: = psDashDot;//штрих-пунктирная линия

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-10),

150); //начало для горизонтальной оси симметрии

Lineto(round(301+1.5*GAIKA_GOST_5915_70[k,1]*M+10), 150); //линия

горизогтальной оси симметрии

// шпилька вид сверу

Pen.Style: = psSolid; //обычная линия

pen.Width: = 2; //толщина 2 пик

Rectangle(round(530-0.7*BOLT_GOST_7798_70[k,2]*M) , round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M),

round(530+0.7*BOLT_GOST_7798_70[k,2]*M) ,

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //Плоскость детали

Ellipse(round(530-0.5*BOLT_GOST_7798_70[k,1]*M) , round(150-

0.5*BOLT_GOST_7798_70[k,1]*M),

round(530+0.5*BOLT_GOST_7798_70[k,1]*M) ,

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); //тело шпильки

MoveTo(round(530-0.5*BOLT_GOST_7798_70[k,2]*M),

round(150+0.47*BOLT_GOST_7798_70[k,1]*M)); //гайка

Lineto(round(530-0.5*BOLT_GOST_7798_70[k,2]*M), round(150-

0.47*BOLT_GOST_7798_70[k,1]*M)); //гайка

Lineto(530, round(150-0.53*BOLT_GOST_7798_70[k,4]*M)); //гайка

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M), round(150-

0.47*BOLT_GOST_7798_70[k,1]*M)); //гайка

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M),

round(150+0.47*BOLT_GOST_7798_70[k,1]*M)); //гайка

Lineto(530, round(150+0.53*BOLT_GOST_7798_70[k,4]*M)); //гайка

Lineto(round(530-0.5*BOLT_GOST_7798_70[k,2]*M),

round(150+0.47*BOLT_GOST_7798_70[k,1]*M)); //гайка

pen.Width: = 1; //толщина 1 пик

Pen.Style: = psDashDot; //штрих-пунктирная линия

MoveTo(round(530-0.5*BOLT_GOST_7798_70[k,2]*M-10), 150);

//горизонтальная ось симметрии

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M+10), 150);

//горизонтальная ось симметрии

MoveTo(530, round(150-0.53*BOLT_GOST_7798_70[k,4]*M-10));

//вертикальная ось симметрии

Lineto(530, round(150+0.53*BOLT_GOST_7798_70[k,4]*M+10));

//вертикальная ось симметрии

//выноски размеров

{Для вида слева}

Pen.Style: = psSolid; {обычная линия}

//диаметр

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-6*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)-1);

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M),

round(150-0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-6*M),

round(150-0.5*BOLT_GOST_7798_70[k,1]*M)-1);

//вертикальная

MoveTo(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-

4.7*M),round(150+0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(301+0.5*BOLT_GOST_7798_70[k,1]*M-DLINA*M-

---

4.7*M),round(150-0.5*BOLT_GOST_7798_70[k,1]*M)-1);

Label17.Visible: = False;

Label18.Visible: = True;

Label19.Visible: = False;

{D}

Label18.Left: = 168+round(301+0.5*BOLT_GOST_7798_70[k,1]*M-

DLINA*M-40);

Label18.Top: = 16+140;

end;

// размеры вывод

GroupBox2.Caption: = 'Шпилька';

GroupBox2.Visible: = True;

GroupBox3.Visible: = True;

GroupBox4.Visible: = True;

edit4.Text: = floattostr(BOLT_GOST_7798_70[k,2]);

edit5.Text: = floattostr(BOLT_GOST_7798_70[k,3]);

edit6.Text: = floattostr(BOLT_GOST_7798_70[k,4]);

LABEL8.Caption: = 'Принимаем стандартную длину по ГОСТ 7798-70, равную

'+floattostr(DLINA) + ' мм';

edit8.Text: = floattostr(GAIKA_GOST_5915_70[k,2]);

edit9.Text: = floattostr(GAIKA_GOST_5915_70[k,3]);

edit10.Text: = floattostr(GAIKA_GOST_5915_70[k,2]);

edit11.Text: = floattostr(SHAIBA_GOST_11371_78[k,2]);

edit12.Text: = floattostr(SHAIBA_GOST_11371_78[k,3]);

label14.Caption: = 'Шпилька '+'М'+ box1.Text +' х '+floattostr(DLINA)+'.58

'+'ГОСТ 22032-76';

label15.Caption: = 'Гайка ' + 'M'+ box1.Text +' х '+'1,25.5 '+'ГОСТ 5915-

70';

label16.Caption: = 'Шайба ' + '1.'+ box1.Text +'.01 '+'ГОСТ 11371-78';

end;

// винтовое соединение

2:begin

// расчет длины болта

DLINA_R: = strtofloat(edit3.Text)-

0.6*BOLT_GOST_7798_70[k,1]+1.5*BOLT_GOST_7798_70[k,1];

// подбор длины по ГОСТу

q: = 0;

For i: = 1 to 30 do If DLINA_R
= i;

DLINA: = GOST_DLINA[q];

// переменная масштаба

M: = strtofloat(edit3.Text);

// видимость элементов

edit1.Visible: = True;

edit2.Visible: = False;

Label2.Visible: = True;

Label3.Visible: = False;

// построение изображения

With FORM1.Canvas do

Begin

// для очистки поверхности

Pen.Style: = psSolid; // обычная линия

pen.Width: = 1; //толщина линии

pen.Color: = clWindowText; //черный цвет заливки

Brush.Style: = bsSolid; // способ заливки, заливка одним цветом

Brush.Color: = clWindow; // цвет заливки белый

Rectangle(10 ,10, 633, 305);

// основное изображение шпильки

Pen.Style: = psSolid; //обычная линия

pen.Color: = clBlack; //черный цвет линии

pen.Width: = 2; //толщина линии

Brush.Color: = clBlack; //черный цвет киси

Brush.Style: = bsBDiagonal; //штриховка тип 1

Rectangle(301 , round(150-0.7*SHAIBA_GOST_11371_78[k,2]*M),

round(301+1.5*GAIKA_GOST_5915_70[k,1]*M),

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //фланец №2

Brush.Style: = bsFDiagonal; //штриховка тип 2

Rectangle(round(303-strtofloat(edit1.Text)*M)-1 , round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M), 302,

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //фланец №1

Brush.Style: = bsSolid; //заливка одним цветом

Brush.Color: = clWhite; // белый цвет заливки

Rectangle(round(302-strtofloat(edit1.Text)*M) , round(150-

0.5*BOLT_GOST_7798_70[k,1]*M),

round(301+GAIKA_GOST_5915_70[k,1]*M),

round(150+0.5*BOLT_GOST_7798_70[k,1]*M)); //тело винта

pen.Width: = 1; //толщина

Rectangle(round(302-strtofloat(edit1.Text)*M) , round(150-

0.4582*BOLT_GOST_7798_70[k,1]*M),

round(300+GAIKA_GOST_5915_70[k,1]*M),

round(150+0.44*BOLT_GOST_7798_70[k,1]*M)); //резьба

pen.Width: = 2; //толщина

Brush.Style: = bsClear; // нет заливки

Brush.Style: = bsSolid; // заливка одним цветом

Rectangle(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M) , round(150-

0.75*BOLT_GOST_7798_70[k,1]*M), round(303-strtofloat(edit1.Text)*M)

, round(150+0.75*BOLT_GOST_7798_70[k,1]*M)); //Шляпка финта

pen.Width: = 1; //толщина

---