var
  aChild:TFManTest;
begin
  aChild := TFManTest.Create(Application);
  aChild.Caption := '测试';
  aChild.Show;
end;其中TFManTest窗口的close事件代码:  Action := caFree;