Form resizing

[D]

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