[fpc-pascal]Destroy Instance

[Luis Del Aguila]

I don't Understand, I compile this code with FPC 1.06 for Windows and the
directive compiler -S2 -Rintel.
is it a bug?.

Thanks


Type
  TClase1 = Class
    campo1:string;
  End;
  TClase2 = Class (TClase1)
    campo2:string;
  End;

Var b:Tclase2;
Begin
  b:=TClase2.create;
  b.campo1:='hola';
  b.campo2:='hola2';
  Writeln(b.campo2);
  b.destroy;             //if destroy the instance .
  Writeln(b.campo2);     // Why the instance exist?
  Write('presione enter para terminar');readln
End.