Class TForm1 (unit Testcass)

Inherits from

TForm

Constructors



Functions

procedure bFFClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure bPLAYClick(Sender: TObject);


procedure bRWClick(Sender: TObject);


procedure bSTOPClick(Sender: TObject);


procedure EsetTCodeExit(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure SpinSpeedChange(Sender: TObject);


Properties

Events

Variables

Bevel1 : TBevel;


Bevel2 : TBevel;


bFF : TBitBtn;


BitBtn1 : TBitBtn;


bPLAY : TBitBtn;


bRW : TBitBtn;


bSTOP : TBitBtn;


EsetTCode : TEdit;


Label1 : TLabel;


LTcode : TLabel;


SpinSpeed : TSpinEdit;


FCounter : TCasseteContador;

Private declarations


Constructors


Functions


procedure bFFClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure bPLAYClick(Sender: TObject);


procedure bRWClick(Sender: TObject);


procedure bSTOPClick(Sender: TObject);


procedure EsetTCodeExit(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure SpinSpeedChange(Sender: TObject);


Properties


Events


Variables


Bevel1 : TBevel;


Bevel2 : TBevel;


bFF : TBitBtn;


BitBtn1 : TBitBtn;


bPLAY : TBitBtn;


bRW : TBitBtn;


bSTOP : TBitBtn;


EsetTCode : TEdit;


Label1 : TLabel;


LTcode : TLabel;


SpinSpeed : TSpinEdit;


FCounter : TCasseteContador;

Private declarations