procedure test();
type 
    realpointer=^real;
var
    x:real;
    r1:realpointer;
begin
    x:=3.14159;
    new(r1);
    r1^:=x;
    edit1.text:=FloatToStr(r1^);
    dispose(r1);
end;
假如我把"dispose(r1);"删掉,那么我遇到了两个问题:
1、r1所指向的内存中的动态变量在end;之后会自动释放吗?
2、指针变量r1在end;之后会被删除吗?