Реферат Моделювання систем

ccumulator.TakeParcel (Index: integer);

begin

FParcels.Add (Sources [Index]. Container);

TQSheme (Sheme). NewEvent (EV_TAKE, Self, Sources [Index], Sources [Index]. Container.Info);

Container: = FParcels.Last;

Sources [Index]. DropParcel;

end;

end.