eshe :

===================
procedure TForm1.BProccessClick(Sender: TObject);
type Porder = ^order;
var i,j,k,OrdNum:integer;
p:Porder;
ordwait:Tlist;
begin
randomize;
ordwait:=Tlist.Create;
ordNum:=randomrange(2,10);
Setlength(OrdInDay,OrdNum);
for j:=0 to OrdNum-1 do
begin
OrdInDay[j]:=Order.Create;
OrdInDay[j].name:=Productbase[random(7)].name;
OrdInDay[j].mass:=random(40)+4;
OrdinDay[j].Poit2Del:=randomfrom(shopname);
OrdinDay[j].TimeMake:=randomrange(2,5);
new(p);
p^:=ordinday[j];
ordwait.Add(p);
end;
for k:=0 to Ordwait.Count-1 do
begin
p:=ordwait[k];
while productbase[i].name <> p^.name do i:=i+1;
if p^.mass <= productbase[i].massS then
begin
productbase[i].massS:=productbase[i].massS-p^.mass;
//dispose(p);
ordwait.Delete(k); // Sto za ERROR tut ???//
viewtab.Lines.add('order done');
end
else showmessage('mass not enough');
i:=0;
end;

========
s udaleniem elementa iz TList est ERROR, kak pravilno delat ? Productbase i OrdInDay vse OK.