Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
Dispose(L.Items[0]);
l.Delete(0);
end;
ты имеешь ввиду так?
не работает
или как перейти то к нему
если при создании то не работет
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
p:PLoadFiles;
begin
new(p);
p.NameFile:=Memo1.Text;
l.Add(p);
Dispose(p);
end;