procedure TForm1.BaggageClick(Sender: TObject);
begin
resumeSimulation;
end;

procedure TForm1.SerTimeClick(Sender: TObject);
begin
resumeSimulation;
stopSimulation(TNOW);
end;

procedure TForm1.WaitTimeClick(Sender: TObject);
begin
InterruptSimulation;
end;

end.