Реферат: Экспертная система

begin

Select := Select*10+1;

ReLoad (form1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Select := Select*10+2;

ReLoad (form1);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Select := Select*10+3;

ReLoad (form1);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Select := Select*10+4;

ReLoad (form1);

end;

procedure TForm1.BackClick(Sender: TObject);

begin

if Select > 10 then Select := Select div 10;

ReLoad (form1);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

help.visible :=true;

end;

procedure TForm1.FormCreate(Sender: TObject);