🚀 go-pugleaf

I have form that changes height in response to mouseclicks.  Panels
within the form also height:

procedure TFSReportingDlg.Panel4Click(Sender: TObject);
begin
  if Panel5.Height < 112 then
  begin
    Panel5.Height := 112;
    FSReportingDlg.Height := FSReportingDlg.Height + 111;
  end
  else
  begin
    Panel5.Height := 1;
    FSReportingDlg. Height := FSReportingDlg.Height - 111;
  end;
end;

When I run it as the main (only) form in it's own application it works
fine, but when I launch it from another application the panels change
height but the form dose not.

procedure TForm2.Print1Click(Sender: TObject);
var
  FSReportingDlg : TFSReportingDlg;
begin
  FSReportingDlg := TFSReportingDlg.Create(Self);
  try
    FSReportingDlg.ShowModal;
  finally
    if Assigned(FSReportingDlg) then
      FreeAndNil(FSReportingDlg);
  end;
end;

What is up?

TIA, D