Da fehlt eine Zeile, das kann gar nicht funktionieren, da Self nie initialisiert wird.
Code:
[...]
constructor THanoiList.Create(awClusterSize : Word);
begin
[color=#ff0000]inherited Create;[/color]
wClusterSize := awClusterSize; // 1. EAccessViolent
AddCluster;
end;
[...]
...
...