Problem mit TObject

[Eppos]

Delphi-Quellcode:

constructor TKopf.Create;
begin
  inherited Create;
  A := tObject.Create;
end;

destructor TKopf.Destroy;
begin
  A.free;
  A := nil;
  inherited Destroy;
end;