TGroupBox + TLabel Caption

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
 
type
  TForm2 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    Label3: TLabel;
    procedure TB1Change(Sender: TObject);
    procedure TB2Change(Sender: TObject);
    procedure Reset(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Reset(Sender: TObject);
begin
TrackBar2.Position := TrackBar1.Position;
 
end;
 
procedure TForm2.TB1Change(Sender: TObject);
begin
Label1.Caption := IntToStr(TrackBar1.Position);
Label3.Caption := IntToStr(TrackBar1.Position*TrackBar2.Position);
if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;
 
end;
 
procedure TForm2.TB2Change(Sender: TObject);
begin
Label2.Caption := IntToStr(TrackBar2.Position);
Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position);
if CheckBox1.Checked then TrackBar1.Position := TrackBar2.Position;
 
end;
 
end.