Wie onCloseQuery überschreiben?

[freak4fun]

Delphi-Quellcode:

with (xForm) do 
  begin
    TBXDock3.Visible := not (MDIChildCount = 1); 
    TBXItem18.Visible := TBXDock3.Visible;
  end;

läuft auf das Gleiche hinaus wie

Delphi-Quellcode:

if xForm.MDIChildCount = 1 then 
   begin 
      xForm.TBXDock3.Visible:=false; 
      xForm.TBXItem18.Visible:=false; 
   end 
   else 
    begin 
      xForm.TBXDock3.Visible:=true; 
      xForm.TBXItem18.Visible:=true; 
    end;

MfG
freak