次にサブフォーム
procedure TP02aChildForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
以上．