这样会内存泄漏吗？

Question

TTest=class
    public
      x:integer;
      Constructor Create();
      Destructor Destroy;override;
  end;constructor TTest.Create;
begin
  x:=8;end;destructor TTest.Destroy;
begin
  showmessage('ok');
  inherited;
end;主程序中：
  showmessage(inttostr(TTest.Create().x));我看过，这样生成的对象不会调用Destroy，会不会造成内存泄漏？？（如果TTest含有指针的话）

Answer 1

答案是肯定的， 必须Free

Answer 2

with TTest.Create() do
begin
showmessage(inttostr(x))
Free();
end;

Answer 3

奇怪，我看过FAST REPORT的代码。
人家是：
if TDialog.Create(nil).ShowModal()=mrok then
 ...就这样一句，会不会showModal之后是释放了窗体的内存呢？