procedure TMainForm.SetBands(AControls: array of TWinControl;

ABreaks: array of boolean);

var

 i: integer;

begin

 with CoolBar do

 begin

  for i:=0 to High(AControls) do

  begin

  if Bands.Count=succ(i) then

  TCoolBand.Create(Bands);

  with Bands[succ(i)] do

  begin

  if Assigned(Control) then

  Control.Hide;

  MinHeight:=AControls[i].Height;

  Break:=ABreaks[i];

  Control:=AControls[i];

  Control.Show;

  Visible:=true;

  end

  end;

  for i:=High(AControls)+2 to pred(Bands.Count) do

  Bands[i].Free

 end

end;

procedure TMsgForm.FormActivate(Sender: TObject);

begin

 MainForm.SetBands([ToolBar],[false])

end;

AutoSize := false;

try

 ...

finally

AutoSize := true;

TMainForm
 ...
 object SpeedBar: TPanel
 ...
 Align = al
 BevelOuter = bvNone
 object ToolBar: TPanel
 ...
 Align = alLeft
 BevelOuter = bvNone
 end
 object RxSplitter1: TRxSplitter
 ...
 ControlFirst = ToolBar
 ControlSecond = ChildBar
 Align = alLeft
 BevelOuter = bvLowered
 end
 object ChildBar: TPanel
 ...
 Align = alClient
 BevelOuter = bvNone
 end
end
TMdiChild {пpородитель всех остальных}
 ...
 object pnToolBar: TPanel
 ...
 Align = al
 BevelOuter = bvNone
 Visible = False
end
procedure TMDIForm.FormActivate(Sender: TObject);
begin
 pnToolBar.Parent := MainForm.ChildBar;
 pnToolBar.Visible := True;
end;
procedure TMDIForm.FormDeactivate(Sender: TObject);
begin
 pnToolBar.Visible := false;
 pnToolBar.Parent := self
end;