Визуализировать значения Edit в gauge

Gauge.MaxValue:= 500;

gauge.progress := strtoint(edit.text);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls,math;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    RadioGroup1: TRadioGroup;
    BitBtn1: TBitBtn;
    PaintBox1: TPaintBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   x,y,pis,vod: extended;
   Proc1,Proc2,Proc3 :extended;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
y:=StrToFloat(Edit1.Text);
case RadioGroup1.ItemIndex of
    0 : begin
    if y>8 then begin
    showmessage('Змініть значення. ви привищіли 8 годин');
   Edit2.Text:='помилка';
      Edit3.Text:='помилка' ;
      Edit4.Text:='помилка' ;
       end;
    if y<=8 then  begin
      x:=(y*1.14)/1 ;
      Edit2.Text:=FloatToStr(x)+' тон';
       end;
       if y<=8 then  begin
      pis:=(x*0.99)/1  ;
       Edit3.Text:=FloatToStr(pis)+' тон';
       end;
       if y<=8 then  begin
      vod:=(x*0.78)/1 ;
      Edit4.Text:=FloatToStr(vod)+' м3';
      end;
 
  end;
    1 : begin
     if y>5 then begin
    showmessage('Змініть значення. ви привищіли 5 змін');
    Edit2.Text:='помилка';
      Edit3.Text:='помилка' ;
      Edit4.Text:='помилка' ;
       end;
      if y<=5 then  begin
      x:=(y*9.12)/1;
       Edit2.Text:=FloatToStr(x)+' тон';
        end;
      if y<=5 then  begin
      pis:=(y*7.92)/1;
       Edit3.Text:=FloatToStr(pis)+' тон';
       end;
      if y<=5 then  begin
      vod:=(y*6.28)/1;
       Edit4.Text:=FloatToStr(vod)+' м3';
        end;
    end;
    2 : begin
     if y>5 then begin
    showmessage('Змініть значення. ви привищіли 5 діб');
    Edit2.Text:='помилка';
      Edit3.Text:='помилка' ;
      Edit4.Text:='помилка' ;
       end;
       if y<=5 then  begin
      x:=(y*18.24)/1;
        Edit2.Text:=FloatToStr(x)+' тон';
        end;
      if y<=5 then  begin
      pis:=(y*15.84)/1;
        Edit3.Text:=FloatToStr(pis)+' тон';
        end;
      if y<=5 then  begin
      vod:=(y*12.57)/1;
        Edit4.Text:=FloatToStr(vod)+' м3';
        end;
    end;
    3 : begin
     if y>5 then begin
    showmessage('Змініть значення. привищіли 5 місяців');
    Edit2.Text:='помилка';
      Edit3.Text:='помилка' ;
      Edit4.Text:='помилка' ;
       end;
        if y<=5 then  begin
      x:=(y*95)/1;
        Edit2.Text:=FloatToStr(x)+' тон';
        end;
         if y<=5 then  begin
      pis:=(y*83)/1;
        Edit3.Text:=FloatToStr(pis)+' тон';
        end;
         if y<=5 then  begin
      vod:=(y*66)/1;
        Edit4.Text:=FloatToStr(vod)+' м3';
        end;
      end;
  end;
   Form1.PaintBox1Paint(Sender);
    Proc1:=100*x/500;
    Proc2:=pis*100/500;
    Proc3:=vod*100/500;
    Edit5.Text:=FloatTostr(Roundto(Proc1,-2)) + '%';
    Edit6.Text:=FloatTostr(Roundto(Proc2,-2)) + '%';
    Edit7.Text:=FloatTostr(Roundto(Proc3,-2)) + '%';
    end;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 With PaintBox1 do
 begin
 Left:=200;
 Top := 24;
 Width:=300;
 Height:=300;
 end;
 
 
 
 
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
 
 Var
 X1, Y1,X2,Y2, Radius,i: Integer;
  StartAngle, SweepAngle,Alfa,Proc5: Extended;
  Sin1, Cos1,Sin2,Cos2,Sin3,Cos3,Sin4,Cos4: Extended;
begin
  Radius:= 100;
  StartAngle:= 30;
  SweepAngle:= 180-2*StartAngle;
  Proc5:=x*100/9.12;
  if Edit2.text <> ('')then
  if Proc5<=30 then Alfa:=Proc5*12/5;
  if Proc5>30 then Alfa:=30+Round(Proc5)*1.2;
 
  X1:= 200;
  Y1:= 200;
  i:=4;
 
  Sin1:=Sin((StartAngle*Pi)/180);
  Cos1:=Cos((StartAngle)*Pi/180);
  Sin2:=Sin(((SweepAngle+StartAngle)*Pi)/180);
  Cos2:=Cos((SweepAngle+StartAngle)*Pi/180);
 
  Sin3:=Sin((Alfa*Pi)/180);
  Cos3:=Cos((Alfa)*Pi/180);
 
  X2:= X1-Round((Radius-5)*Cos2);
  Y2:=Y1- Round((Radius-5)*Sin2);
  With PaintBox1.Canvas do
begin
 Rectangle(X1-100,Y1-120,X1+100,Y1+20);
 MoveTo(X1+Round(Radius*Cos1), Y1-Round(Radius*Sin1));
 AngleArc(X1, Y1, Radius, StartAngle, SweepAngle);
 MoveTo(X1+Round(Radius*Cos2), Y1-Round(Radius*Sin2));
 LineTo(X1+Round((Radius-10)*Cos2), Y1-Round((Radius-10)*Sin2));
 MoveTo(X1+Round(Radius*Cos1), Y1-Round(Radius*Sin1));
 LineTo(X1+Round((Radius-10)*Cos1), Y1-Round((Radius-10)*Sin1));
 
 for i := 5 downto 1 do
 begin
 Sin4:=Sin(((SweepAngle+StartAngle)*Pi*i)/(5*180));
 Cos4:=Cos((SweepAngle+StartAngle)*Pi*i/(5*180));
 MoveTo(X1+Round((Radius)*Cos4), Y1-Round((Radius)*Sin4));
 LineTo(X1+Round((Radius-10)*Cos4), Y1-Round((Radius-10)*Sin4));
   end;
 AngleArc(X1, Y1, Radius-10, StartAngle, SweepAngle);
 MoveTo(X1, Y1);
 LineTo(Round(X1-(Radius-7)*cos3), Round(Y1-(Radius-7)*sin3));
 
 end;
 
end;
 
 
 
end.

rocedure TForm1.PaintBox2Paint(Sender: TObject);
begin
 With PaintBox2.Canvas do
begin
 
  Brush.Style:=bsSolid;
  Brush.Color:=Clblue;
  Rectangle(10,10,100,40);
  Font.Color:=clWhite;
 
  TextOut(10,10,Edit5.text);
 
end;
end;