TCLProPanel resize hatası

   Eğer telefonu dikey olarak tutup Panelin olduğu sayfaya geldikten sonra yatay çevirirsem ProPanel dikey halde kalıyor , eğer yatayda ilgili ekrana gelirsem de tam tersi oluyor . Yani kendini yeniden boyutlandıramıyor . Bunu ne ile sağlayabilirim?
ProPanel1.Height =Bform.clHeight;
ProPanel1.Width =Bform.clWidth;

----------------Tüm Kod--------------------
var 
BForm: TclStyleForm;
btnSaveSupplier:TClProButton;
addName:TclProEdit;
addAddress:TclProEdit;
addContact:TclProEdit;
ProPanel1 : TclProPanel;

void InsertSupplier;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = '
      INSERT INTO Supplier (name, address, contact) 
      VALUES('+QuotedStr(addName.Text)+', 
      '+QuotedStr(addAddress.Text)+', 
      '+QuotedStr(addContact.Text)+')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Adding data to the table was successful!');
    Clomosy.RunUnit('supplierListUnit');
    BForm.clHide;
  except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }

}
{
  BForm=TclStyleForm.Create(Self);
  ProPanel1=BForm.AddNewProPanel(BForm,'ProPanel1');
  ProPanel1.Height =Bform.clHeight;
  ProPanel1.Width =Bform.clWidth;
  ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
  ProPanel1.clProSettings.RoundHeight = 10;
  ProPanel1.clProSettings.RoundWidth = 10;
  ProPanel1.clProSettings.BorderWidth = 2;
  ProPanel1.clProSettings.IsFill = True; 
  ProPanel1.clProSettings.IsRound = True;
  ProPanel1.SetclProSettings(ProPanel1.clProSettings);

  addName=Bform.AddNewProEdit(ProPanel1,'addName', 'Tedarikçi adını giriniz: ');
  addName.Align=alTop;
  addName.margins.Top=Bform.clHeight/10;

  addAddress=Bform.AddNewProEdit(ProPanel1,'addAddress', 'Tedarikçi adresini giriniz: ');
  addAddress.Align=alTop;
  addAddress.margins.Top=Bform.clHeight/10;

  addContact=Bform.AddNewProEdit(ProPanel1,'addContact', 'Tedarikçi iletişim giriniz: ');
  addContact.Align=alTop;
  addContact.margins.Top=Bform.clHeight/10;

  btnSaveSupplier=Bform.AddNewProButton(ProPanel1,'btnSaveSupplier', 'Tedarikçi Kaydet');
  btnSaveSupplier.Align=alBottom;
  btnSaveSupplier.margins.Bottom=(Bform.clHeight/10)*2;

  Bform.AddNewEvent(btnSaveSupplier,tbeOnClick,'InsertSupplier');
  Bform.Run;

}
--------------------------------