Problemas con StatusBar

[aguml]

Pues no se que pasa que he puesto un codigo para que algunos elementos del Form se redimensione dependiendo del tamaño del form y va todo bien pero si maximizo la ventana y luego la restauro pues desaparece la statusbar. Si redimensiono o maximizo todo va bien pero si doy a restaurar la ventana ya desaparece. Este es el codigo:

void __fastcall TForm1::FormResize(TObject *Sender)
{
        //Aqui hacemos que CheckListBox se ajuste al tamaño del formulario
        CheckListBox->Height = Form1->Height - CheckListBox->Top - 40 - StatusBar1->Height;

        //Aqui hacemos que el tamaño del Image se ajuste al cambiar el tamaño de la ventana
        ScrollBox->Width = Form1->Width - ScrollBox->Left - 15;
        ScrollBox->Height = Form1->Height - ScrollBox->Top - 40 - StatusBar1->Height;
}