Incorporo un Virtual Scope para poder ver bien el funcionamiento del mismo:

delphi
var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled :=True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; Label1.Caption:='6'; Timer2.Enabled := True; end; procedure TForm1.Timer2Timer(Sender: TObject); begin Timer2.Enabled := False; Label1.Caption:='5'; Timer1.Enabled := True; end; procedure TForm1.VrScope1NeedData(Sender: TObject; Channel: Integer; var Value: Integer); begin Value := StrToInt(Label1.Caption); end; procedure TForm1.VrTrackBar1Change(Sender: TObject); begin VrScope1.Interval := VrTrackBar1.Position; end; procedure TForm1.VrTrackBar2Change(Sender: TObject); begin VrScope1.Frequency :=VrTrackBar2.Position; end; end.
Un Saludo.