Подскажите......

 Button1Click(NULL);//Обработчик кнопки загрузки 
Button2Click(NULL);//Обработчик кнопки расчета ... 
Close(); //Выходим

void __fastcall TMainForm::FormPaint(TObject *Sender)
{
   Hide();
}

//---------------------------------------------------------------------------
#include <math.h>
#include <vcl.h>
#include <stdlib.h>
#include <cstring.h>
#include <stdio.h>
#pragma hdrstop
 
#include "TRMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTRASSA *TRASSA;
//---------------------------------------------------------------------------
__fastcall TTRASSA::TTRASSA(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TTRASSA::Button1Click(TObject *Sender)
{
  double pi = 3.141592654;
  int Rz = 6370;
  double ta1,ta3,fi1,fi3;
 
    double cosa3,msina3,a3,d;
 
    double coseps,sineps,eps,tan,eps1;
 
 
  double costa2,msinta2,ta2,sh2;
    double cosdelfi,sindelfi,delfi,fi2,dol2;
 
    double ut,lt,lt1;
 
  double sh1 = StrToFloat(Edit1->Text);
  double sh3 = StrToFloat(Edit3->Text);
  double dol1 = StrToFloat(Edit2->Text);
  double dol3 = StrToFloat(Edit4->Text);
 
  ta1 = pi/2-DegToRad(sh1);
  ta3 = pi/2-DegToRad(sh3);
  if (dol1>=0) fi1 = DegToRad(dol1);
      else fi1 = 2*pi+DegToRad(dol1);
  if (dol3>=0) fi3 = DegToRad(dol3);
     else fi3 = 2*pi+DegToRad(dol3);
 
  //Äàëüíîñòü òðàññû
  cosa3 = cos(ta1)*cos(ta3)+sin(ta1)*sin(ta3)*cos(fi3-fi1);
  msina3 = sqrt(1-cosa3*cosa3);
 
   if(msina3>0.000001)  a3 = pi/2-atan(cosa3/msina3);
   else if(msina3<0.000001 && cosa3>0) a3 = 0.000001;
        else a3 = pi-0.000001;
 
  d =Rz*a3;
  Edit6->Text = d;
 
  //Àçèìóò òðàññû
  coseps = (cos(ta3)-cos(ta1)*cos(a3))/(sin(ta1)*sin(a3));
  sineps = sin(ta1)*sin(fi3-fi1)/sin(a3);
 
  if(sineps>0) eps1 = pi/2-atan(coseps/sineps);
  else if(sineps<0) eps1 = 3*pi/2-atan(coseps/sineps);
       else if(abs(sineps)<0.000001 && coseps>0) eps1 = 0;
            else eps1 = pi;
  eps = RadToDeg(eps1);
  Edit7->Text = eps;
 
  //Êîîðäèíàòû ñðåäíåé òî÷êè
    //Øèðîòà
      costa2 = cos(ta1)*cos(a3/2)+sin(ta1)*sin(a3/2)*cos(eps1);
      msinta2 = sqrt(1-costa2*costa2);
 
      if(msinta2>0.000001) ta2 = pi/2-atan(costa2/msinta2);
      else if(msinta2<0.000001 && costa2>0) ta2 = 0;
           else ta2 = pi;
 
      sh2 = RadToDeg(pi/2-ta2);
      Edit9->Text = sh2;
 
    //Äîëãîòà
      cosdelfi = (cos(a3/2)-cos(ta1)*cos(ta2))/(sin(ta1)*sin(ta2));
      sindelfi = sin(a3/2)*sin(eps1)/sin(ta2);
 
      if(sindelfi>0) delfi = pi/2-atan(cosdelfi/sindelfi);
      else if(sindelfi<0) delfi = 3*pi/2-atan(cosdelfi/sindelfi);
           else if(abs(sindelfi)<0.000001 && cosdelfi>0) delfi = 0;
                else delfi = pi;
 
      fi2 = fi1+delfi;
      if(fi2<=0) dol2 = RadToDeg(fi2);
      else dol2 = RadToDeg(fi2-2*pi);
      Edit8->Text = dol2;
 
  //Ïåðåâîä UT â LT
   ut = StrToFloat(Edit5->Text);
  lt1 = dol2/15+ut;
  if(lt1>=24) lt = lt1-24;
  else lt = lt1;
  if(lt1<0) lt = lt1+24;
 
  Edit10->Text = lt;
}
//---------------------------------------------------------------------------
 
void __fastcall TTRASSA::Button2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TTRASSA::Button3Click(TObject *Sender)
{
 TStringList* TmpList = new TStringList();
 
   if ( FileExists("input.txt") )
   {
      TmpList->LoadFromFile("input.txt");
 
      Edit1->Text = TmpList->Strings[0];
      Edit2->Text = TmpList->Strings[1];
      Edit3->Text = TmpList->Strings[2];
      Edit4->Text = TmpList->Strings[3];
      Edit5->Text = TmpList->Strings[4];
   }
 
   delete TmpList;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TTRASSA::Button4Click(TObject *Sender)
{
  TStringList* TmpList = new TStringList();
 
      if ( FileExists("output.txt"))
   {
      TmpList->Add( Edit6->Text );
      TmpList->Add( Edit7->Text );
      TmpList->Add( Edit8->Text );
      TmpList->Add( Edit9->Text );
      TmpList->Add( Edit10->Text );
 
      TmpList->SaveToFile("output.txt");
   }
 
   delete TmpList;
}
//---------------------------------------------------------------------------

double DegToRad(double){
  // здесь должна быть какая-то ваша функция
  return 0;
}
//---------------------------------------------------------------------------
double RadToDeg(double){
  // здесь должна быть какая-то ваша функция
  return 0;
}

double DegToRad(double){
  // здесь должна быть какая-то ваша функция
  return 0;
}
//---------------------------------------------------------------------------
double RadToDeg(double){
  // здесь должна быть какая-то ваша функция
  return 0;
}