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

if DBRadioGroup1.ItemIndex=0 then

begin

DBImage1.Visible:=true;

DBMemo1.Visible:=false;

end

else

begin

DBImage1.Visible:=false;

DBMemo1.Visible:=true;

end;

end;

if (Gauge1.Progress<=100) and (Gauge1.Progress>=95) then Gauge1.ForeColor:=clMoneygreen

else

if (Gauge1.Progress<=94) and (Gauge1.Progress>=76) then Gauge1.ForeColor:=clyellow

else

if (Gauge1.Progress<=75) and (Gauge1.Progress>=60) then Gauge1.ForeColor:=clred

else Gauge1.ForeColor:=clsilver;

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

GiveOcinka;

if (i>StrToInt(Form2.Edit1.Text)) then

begin

ShowOcinka;

end;

end;

procedure TForm5.FormShow(Sender: TObject);

begin