Контрольная работа: Розробка програмного продукту "Тестер"

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Timer1: TTimer;

OpenDialog: TOpenDialog;

procedure CloseTestClick(Sender: TObject);

procedure AboutProcClick(Sender: TObject);

procedure StartTestClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ButtonNextClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

Status:TStatus;

public

procedure WriteParametru;

procedure WritePutanya;

procedure GetResult;

end ;

var

Form1: TForm1;

implementation

uses About, ResultTest, Math;

{$R *.dfm}

procedure TForm1.CloseTestClick(Sender: TObject);