Закрашивание круга снизу вверх для визуализации уровня наполнения емкости топливного бака в автомобиле делфи

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
    FFillPercentage: Integer; // Переменная для хранения процента заполнения
  public
    { Public declarations }
    constructor Create(Owner: TComponent); override; // Конструктор формы
    procedure SetFillPercentage(const Value: Integer); // Метод для установки процента заполнения
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
constructor TForm1.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  // Установим начальный процент заполнения
  FFillPercentage := 70; // Например, 70%
end;
 
procedure TForm1.SetFillPercentage(const Value: Integer);
begin
  if Value >= 0 then
    FFillPercentage := Value; // Обновляем процент заполнения
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Установим цвет фона формы на белый
 
  Color := clWhite;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
  FillHeight: Integer;
begin
  // Рассчитать высоту закрашиваемой области (процент от высоты формы)
  FillHeight := Round(FFillPercentage   *   ClientHeight / 100);
 
 
  // Нарисовать черный контур вокруг формы
  Canvas.Pen.Color := clBlack;
  Canvas.Rectangle(0, 0, Width, Height);
 
  // Нарисовать закрашенный круг внутри формы
  Canvas.Brush.Color := clYellow;
  Canvas.Ellipse(0, 0, Width, Height);
 
  // Если процент заполнения меньше 100%, затемним нижнюю часть круга
  if FFillPercentage < 100 then
  begin
    Canvas.Brush.Style := bsClear; // Убираем заливку
    Canvas.Brush.Color := clGreen;
    Canvas.Pen.Color := clGreen;   // Используем красный цвет для затемнения
    Canvas.Rectangle(0, Height - FillHeight, Width, Height);
  end;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    bmFuelE, bmFuelF: TBitmap;
    FFillPercentage: Integer; // Переменная для хранения процента заполнения
    procedure DrawFuel(ACanvas: TCanvas; x1, y1, x2, y2, fillperc: integer);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// https://www.cyberforum.ru/delphi-multimedia/thread3163611.html
// Помогите переделать мой код так чтобы при заполнении бака на допустим 50%
// закрашивалась только нижняя часть круга а верхняя становилась белой
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  bmFuelE := TBitmap.Create;
  bmFuelF := TBitmap.Create;
  FFillPercentage := 70;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(bmFuelE);
  FreeAndNil(bmFuelF);
end;
 
procedure TForm1.DrawFuel(ACanvas: TCanvas; x1, y1, x2, y2, fillperc: integer);
var
  hh: integer;
begin
  hh := Round((100-fillperc)*(y2-y1)/100);
  ACanvas.CopyRect(Rect(0, 0, x2, hh), bmFuelE.Canvas, Rect(0, 0, x2, hh));
  ACanvas.CopyRect(Rect(0, hh, x2, y2), bmFuelF.Canvas, Rect(0, hh, x2, y2));
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawFuel(Canvas, 0, 0, ClientWidth, ClientHeight, FFillPercentage);
end;
 
procedure BuildEllipse(ABitmap: TBitmap; AWidth, AHeight: integer; AColor: TColor);
begin
  ABitmap.Width  := AWidth ;
  ABitmap.Height := AHeight;
  ABitmap.Canvas.Brush.Color := clWhite;
  ABitmap.Canvas.FillRect(Rect(0, 0, AWidth, AHeight));
  ABitmap.Canvas.Brush.Color := AColor;
  ABitmap.Canvas.Ellipse(0, 0, AWidth, AHeight);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  BuildEllipse(bmFuelE, ClientWidth, ClientHeight, clWhite);
  BuildEllipse(bmFuelF, ClientWidth, ClientHeight, clBlue);
  Repaint;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_UP then if FFillPercentage < 100 then FFillPercentage := FFillPercentage + 1;
  if Key = VK_DOWN then if FFillPercentage > 0 then FFillPercentage := FFillPercentage - 1;
  Repaint;
end;
 
end.