Программа зависает

[Anubys]

Вроде все пишу как всегда, программа незнаю почему зависает.Скажите почему она зависает подскажите в чем проблема буду очень благодарен

#include <math.h>
#include <fstream.h>
#include <vcl.h>
#pragma hdrstop
#define N 4
#define T 3
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Button1->Enabled=false;
}
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
        if(ComboBox1->Text=="З файла")
        {
                ifstream inputdata("Dani.txt");
                if(!inputdata)
                {
                        ShowMessage("Файл з вхідними даними відсутній");
                        Button1->Enabled=false;
                        return;
                }
                else
                        {
                                Button1->Enabled=true;
                        }
        }
        if(ComboBox1->Text=="Вручну")
        {
                Button1->Enabled=true;
        }
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        LabeledEdit4->Enabled=false;
        StringGrid4->Enabled=false;
        StringGrid5->Enabled=false;
        StringGrid6->Enabled=false;
        StringGrid7->Enabled=false;
        LabeledEdit10->Enabled=false;
        Memo1->ReadOnly=true;
        Memo2->ReadOnly=true;
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Series1->Clear();
        Series2->Clear();
        Series3->Clear();
        Memo1->Clear();
        Memo2->Clear();        
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        float Y[T],F[T];
        float w,ro,x,ts,tf,xs,xf,epsilon1,epsilon2,dt;
        int G[N][N],Z[N][N],Gt[N][N],Da[T][T],Wt[T][T],W[T][T],A[T][T],Max[T];
          //Виконуємо введення даних
          xs=StrToFloat(LabeledEdit1->Text);
          xf=StrToFloat(LabeledEdit2->Text);
          epsilon1=StrToFloat(LabeledEdit3->Text);
          x=Polovynnyy_podil(xs,xf,epsilon1);
          for(int i=0;i<T;i++)
          {
                Y[i]=StrToInt(StringGrid1->Cells[0][i]);
          }
          w=StrToFloat(LabeledEdit5->Text);
          ro=StrToFloat(LabeledEdit6->Text);
          ts=StrToFloat(LabeledEdit7->Text);
          tf=StrToFloat(LabeledEdit8->Text);
          epsilon2=StrToFloat(LabeledEdit9->Text);
          for(int i=0;i<T;i++)
          {
                for(int j=0;j<N;j++)
                {
                        G[i][j]=StrToInt(StringGrid2->Cells[j][i]);
                }
          }
          for(int i=0;i<T;i++)
          {
                for(int j=0;j<N;j++)
                {
                        Z[i][j]=StrToInt(StringGrid3->Cells[j][i]);
                }
          }
          Transpone(G,Gt,4,4);
          for(int i=0;i<N;i++)
          {
                for(int j=0;j<T;j++)
                {
                        StringGrid5->Cells[j][i]=Gt[i][j];
                }
          }



}