Flip Flop usando Timers

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.