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

begin

stringgrid1. RowCount: =trackbar1. Position;

stringgrid2. RowCount: =trackbar1. Position;

trackbar1. Enabled: =false;

trackbar2. Enabled: =false;

trackbar3. Enabled: =false;

trackbar5. Enabled: =false;

trackbar6. Enabled: =false;

edit1. Enabled: =false;

edit7. Enabled: =false;

edit8. Enabled: =false;

edit9. Enabled: =false;

edit10. Enabled: =false;

edit11. Enabled: =false;

edit12. Enabled: =false;

button1. Enabled: =false;

n2. Enabled: =false;

n3. Enabled: =true;

button2. Enabled: =true;

daymax: =strtoint (edit1. text);

hourmax: =trackbar5. Position+8;

minmax: =trackbar6. Position;

client: =0;

cleft: =0;

S: =0;

timer1. Enabled: =true;

for i: =1 to 50 do

begin

stringgrid2. Cells [0, i-1]: ='';