Курсовая работа: Моделирование системы массового обслуживания

procedure TForm1. TrackBar5Change (Sender: TObject);

begin

edit2. Text: =inttostr (TrackBar5. position);

end;

procedure TForm1. TrackBar6Change (Sender: TObject);

begin

edit3. Text: =inttostr (TrackBar6. position);

end;

procedure TForm1. TrackBar7Change (Sender: TObject);

begin

timer1. Interval: =round (1000/ (Trackbar7. Position));

end;

procedure TForm1. N4Click (Sender: TObject);

begin

close;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

button1. Click;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

button2. Click;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

form2. Show;

end;

end.