[M.A.D.M.A.N.]

Сообщение от NumLock

Выдумываешь. Дай минимальный проект воспроизводящий это?

Код:

type
  TFoo = class
  public
    procedure Free; reintroduce;
  end;

procedure TFoo.Free;
begin
  GetMem($100500);
end;

P.S. Подсветчик синтаксисане не подсветил ключевое слово "reintroduce", как-то не красиво.