void __fastcall TForm1::FormCanResize(TObject *Sender, int &NewWidth,
int &NewHeight, bool &Resize)
{
NewWidth = Screen->WorkAreaWidth;
NewHeight = Screen->WorkAreaHeight;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
Top = 0;
Left = 0;
}