[SpectraL]

type

TPTest = ^TTest;

TTest = record
i: Integer;
next: TPTest;
end;

TTestObj = class
Last: TPTest;
end;

var
TestObj: TTestObj;
New1: TPTest;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
TestObj := TTestObj.Create;
New(TestObj.Last);
New(New1);
New(New1^.next);
end;

1. при выполнении следующего кода:

TestObj.Free;

Динамическое данное Last не будет уничтожено?
2. при выполнении следующего кода:

Dispose(New1);

Динамическое данное New1^.next не будет уничтожено?