Source position: mselinklist.pas line 109
procedure deletelistchain(
var alist: linklistty;
var achain: listadty
);