MDI的子窗体关闭，内存占用不见降低，直到整个程序退出，内存才被释放，为什么？

Question

检查过代码，没有内存泄漏。
Action也是Close没错，为什么子窗体关闭，内存不会及时释放呢？

Answer 1

procedure TForm1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;每个关闭时都需要释放

Answer 2

子窗体的Formclose事件要设置Action为caFree才会Free掉子窗体

Answer 3

每个子窗体
procedure TMDIChild01.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := CaFree;
  MDIChild01:= nil;
end;

Answer 4

每个子窗体
procedure TMDIChild01.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := CaFree;
end;

Answer 5

同意readersm68(地主) 的观点
来晚了

Answer 6

不好意思，刚才写错了，原来就是
action := cafree;
内存就是没有降下来……，faint，真是不解。

Answer 7

create 的时候用这个  ：  ChildForm:=TChildForm.Create(nil)  --一定是nil

Answer 8

以上所说都没用，sigh，搞不定，结贴，俺问问borland是不是它不会马上把内存给释放出来。