Время и дата. Время жизни программы

    AnsiString Days[7] = {"Понедельник", "Вторник", "Среда",
                           "Четверг", "Пятница", "Суббота", "Воскресенье"};
    Edit5->Text="Сегодня " + TimeToStr(Time()) + " " + DateToStr(Date()) + " (" + Days[DayOfWeek(Date())-1] + ")";
    TDateTime T1 = Time();
    Edit6->Text="Прошло " + TimeToStr(Time()-T1);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <iostream.h>
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    AnsiString Days[7] = {"Понедельник", "Вторник", "Среда",
                           "Четверг", "Пятница", "Суббота", "Воскресенье"};
    Edit5->Text="Сегодня " + TimeToStr(Time()) + " " + DateToStr(Date()) + " (" + Days[DayOfWeek(Date())-1] + ")";
    TDateTime T1 = Time();
    Edit6->Text="Прошло " + TimeToStr(Time()-T1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
    float x,k,i,y;
    AnsiString Ptr;
    Ptr = Edit1->Text;
    x=StrToFloat(Ptr);
    Ptr=Edit2->Text;
    k=StrToFloat(Ptr);
    Ptr=Edit3->Text;
    i=StrToFloat(Ptr);
    if(i==2)
    y=2.15*(i/7)*sin(i);
        else
        {
          if(i==4)
          y=2.15*(i/7)*sin(i);
            else
            {
              if(i==1)
              y=pow(fabs(x)*i,1/5)+exp(k);
                else
                {
                  if(i==5)
                  y=pow(fabs(x)*i,1/5)+exp(k);
                    else
                    y=tan(3)+(1/k)*pow(x,5)*i;
                }
            }
         }
    Edit4->Text=FloatToStrF(y,ffFixed,6,3);
 
 
}
//---------------------------------------------------------------------------
 
 void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

#include <time.h>
clock_t TimeStart;
clock_t TimeEnd;

TimeStart=clock();

TimeEnd=clock();
double tmp=(TimeEnd-TimeStart)/CLOCKS_PER_SEC;

void __fastcall TFormMain::MyTimer(TObject *Sender)
{
    clock_t TimeNow=clock();
    double tmp=(TimeNow-TimeStart)/CLOCKS_PER_SEC;
    StatusBarMain->Panels->Items[0]->Text="Время: "+FloatToStrF(tmp,ffFixed,10,3)+" с";
}

TDateTime T1 = Time();

AnsiString taimer;
taimer = TimeToStr(Time()-T1);
Edit6->Text = "Прошло " + taimer;