Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

begin

if DBRadioGroup1.ItemIndex=0 then

begin

DBImage1.Visible:=true;

BitBtn7.Visible:=true;

Label1.Visible:=false;

DBMemo1.Visible:=false;

end

else

begin

DBImage1.Visible:=false;

BitBtn7.Visible:=false;

Label1.Visible:=true;

DBMemo1.Visible:=true;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if a<=1 then BitBtn1.Enabled:=false

else begin

BitBtn2.Enabled:=true;

dec(a);

Label7.Caption:='Питання № '+IntToStr(a);

Table1.Prior;

BitBtn3.Enabled:=true;