uses
  graphABC;
  // Полупрозрачный круг
// Аргументы:
//   x - координата по X
//   y - координата по Y
//   clr - цвет которым должен обладать этот сладенький кружок
//   alpha - процент прозрачности, но он дохуя не логичный для тебя будет,
//           находится в диапазоне от 0 до 255, и является ЦЕЛЫМ числом.
//           (0 - прозрачный полностью, 255 - не прозрачный полностью)
procedure AlphaCircle(x, y, r: integer; clr: Color; alpha: integer);
var
  clrAlpha, oldClr: Color;
begin
  oldClr := BrushColor(); // Сохраняем текущий цвет
  clrAlpha := Color.FromArgb(alpha, clr.R, clr.G, clr.B); // Создаем свой
  SetBrushColor(clrAlpha); // Устанавливаем как текущий
  Circle(x, y, r); // Рисуем круг
  SetBrushColor(oldClr); // Восстанавливаем предыдущий
end;

var
  c, k: Color;
  i, kek: Integer;

begin

  for kek := 1 to 50 do
  begin
    for i := 50 to 70 do
    begin
      LockDrawing;
      Clearwindow(clBlack);
      k := rgb(228, 128, 42);
      c := rgb(230, 225, 187);
      setbrushcolor(c);
      setpenwidth(2);
      setpencolor(clblack);
      ellipse(240, 380, 340, 420);
      setpencolor(c);
      setpenwidth(1);
      rectangle(242, 150, 339, 402);
      setpenwidth(2);
      setpencolor(clblack);
      line(240, 152, 240, 400);
      line(340, 152, 340, 400);
      ellipse(240, 130, 340, 180);
      setpenwidth(3);
      line(290, 150, 290, 120);
      SetPenColor(Color.Transparent);
      AlphaCircle(290, 120, i, Color.Yellow, i);
      setbrushcolor(k);
      Pie(290,115,25,0,-180);
      setpencolor(k);
      arc(273,118, 40, 63,-10);
      arc(307,118, 40, 110,190);
      setpencolor(clYellow);FloodFill(290, 85, k);
      arc(275,118, 30, 64,-10);
      arc(305,118, 30, 122,175);
      setbrushcolor(clYellow);
      FloodFill(290, 105, ClYellow);
      Pie(290,115,15,0,-180);
      Redraw;
      Sleep(1);
    end;
  end;
end.