Ошибка в запуске. Появляется лишь пустая форма

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "LABA21347.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Edit1->Text="4";
        Memo1->Clear();
        Memo1->Lines->Add("Ëàáîðàòîðíàÿ ðàáîòà 2");
        RadioGroup1->ItemIndex = 0;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        double u,z,f,g,h,o,p;
    z=StrToFloat(Edit1->Text);
        if (z>0)
        { x=1/(pow(z,2)+2*x);
        else
        {
        x=1-pow(z,3) ;
 
         switch(RadioGroup1->ItemIndex){
        case 0: u=2*x ;
y=(2.5*exp(-3*x)-pow(x,2)*4)/(log(x)+2*x);
        break;
        case 1: u=x^2 ;
y=(2.5*exp(-3*x)-pow(x,2)*4)/(log(x)+pow(x,2));
        break;
        case 2: u=x/3;
y=(2.5*exp(-3*x)-pow(x,2)*4)/(log(x)+x/3);
        break;
 Memo1->Lines->Add("y= "+FloatToStrF(y,ffFixed,8,6));
}
}
}
}
//---------------------------------------------------------------------------
 
   
 
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Edit1->Text="4";
        Memo1->Clear();
        Memo1->Lines->Add("Лабораторная работа 2");
        RadioGroup1->ItemIndex = 0;
        Button1Click(NULL);
}