Genel İşlemler - 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;

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