Du kannst alternativ auch testen, ob das Fenster bald zerstört werden wird:
Delphi-Quellcode:
for c:=0 to MDIChildCount -1 do
if not (csDestroying in MDIChildren[c].ComponentState) then
with tTabSheet.Create(Self) do
begin
PageControl := PageControl1;
caption := MDIChildren[c].caption;
end;
Dann kannst du die Routine auch im OnDestroy der
MDI-Fenster benutzen (wenn das Ereignis ausgelöst wird ist das Flag csDestroying schon gesetzt).