Methode "Free" selbst implementieren (Assembler-Problem?)

[Dax]

Wieso den komplizierten Assembler hernehmen? So gehts doch auch, und dein Problem löst es gleich mit

Delphi-Quellcode:

destructor TMyList.Destroy(DoSomething: boolean);
begin
  if Self <> nil then
  begin
    fDoSemthing := DoSomething;
    Destroy;
  end
end;