Как правильно создать проект исходя из данного исходного кода программы?

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainInterpol.cpp", Form1);
USEFORM("RezultInterpol.cpp", Form2);
//Функция, с которой начинается выполнение программы
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize(); //Инициализация приложения
Application->Title = "Regres"; //Задание заголовка
Application->CreateForm(__classid(TForm1), &Form1); // Создание формы
Application->Run();
// Запуск обработчика событий и визуализация компонентов
} // Обработчик исключений Exception
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...) // Обработчик всех исключений
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}

//Задание стражей включения, обеспечивающих дублирования заголовочного файла
#ifndef MainInterpolH
#define MainInterpolH
//Подключение заголовочных файлов
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Graphics.hpp>
#include <Series.hpp>
//Объявление класса формы
class TForm1 : public TForm
{
__published: // Объявление визуальных компонентов на форме
TPanel *Panel1;
TPanel *Panel2;
TChart *Chart1;
TGroupBox *GroupBox1;
TStringGrid *StringGrid1;
TLabel *Label1;
TImage *Image1;
TBitBtn *BitBtn1;
TBitBtn *BitBtn2;
TLabel *Label2;
TEdit *Edit1;
TUpDown *UpDown1;
TPointSeries *Series1;
TLineSeries *Series2;
TLabeledEdit *LabeledEdit1;
TLabeledEdit *LabeledEdit2;
TLineSeries *Series3;
TLineSeries *Series4;
//Объявление обработчиков событий
void __fastcall FormCreate(TObject *Sender);
void __fastcall UpDown1Click(TObject *Sender, TUDBtnType Button);
void __fastcall BitBtn1Click(TObject *Sender);
private: // User declarations
public: // User declarations
double k, n, d, r;
__fastcall TForm1(TComponent* Owner);
};
extern PACKAGE TForm1 *Form1;
#endif

#include <vcl.h>
#pragma hdrstop
#include "RezultInterpol.h"
#include "MainInterpol.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//Определение конструктора формы
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner), k(0.0), n(0.0), r(0.0), d(0.0)
{
}
//Определение инициализации формы
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Задание полей заголовка таблицы
StringGrid1->Cells[0][0] = " C";
StringGrid1->Cells[1][0] = " t";
}
//Определение обработчика нажатия на кнопку для изменения количества строк
//таблицы
void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
{
StringGrid1->RowCount = UpDown1->Position + 1;
}
//Определение обработчика кнопки расчета и построения графиков
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
//Инициализация переменных необходимых для решения задачи кинетики
d = 0.0;
int i, reg_up(0), reg_down(0);
double *y, *x, s1(UpDown1->Position - 1),
s2(0.0), s3(0.0), s4(0.0), s5(0.0), s6(0.0), ca, cb, cc, t;
//Очистка графиков после предыдущего расчета
Series1->Clear();
Series2->Clear();
Series3->Clear();
Series4->Clear();
try
{
//Создание в динамической памяти массива для хранения экспериментальных данных
y = new double[UpDown1->Position - 1];
x = new double[UpDown1->Position - 1];
if(!y || !x) throw "НЕТ свободной памяти";
//Задание начальных значений концентраций
ca = StringGrid1->Cells[0][1].ToDouble();
cb = LabeledEdit1->Text.ToDouble();cc = LabeledEdit2->Text.ToDouble();
//Проверка входных данных на допустимость значений
if(!ca || cb < 0.0 || cc < 0.0)
throw "Начальные концентрации компонентов должны быть больше 0";
for(i = 0; i < UpDown1->Position - 1; i++)
{
if(StringGrid1->Cells[0][i + 1].ToDouble() > StringGrid1->Cells[0][i + 2].ToDouble())
reg_down++;
else reg_up++;
if(StringGrid1->Cells[0][i + 1].ToDouble() == StringGrid1->Cells[0][i + 2].ToDouble())
throw "Концентрация в соседних точках должна быть различна";
if(StringGrid1->Cells[1][i + 1].ToDouble() >= StringGrid1->Cells[1][i + 2].ToDouble())
throw "Нарушение последовательности ввода времени";
if(StringGrid1->Cells[1][i+1].ToDouble()< 0||StringGrid1->Cells[0][i + 1].ToDouble()<0)
throw "Время и концентрация не могут быть отрицательными";
}
//Расчет значений локальных переменных, необходимых для решения задачи
for(i = 0; i < UpDown1->Position - 1; i++)
{
y[i] = log(fabs(StringGrid1->Cells[0][i + 2].ToDouble() –
StringGrid1->Cells[0][i + 1].ToDouble()) /
(StringGrid1->Cells[1][i + 2].ToDouble() –
StringGrid1->Cells[1][i + 1].ToDouble()));
x[i] = log(StringGrid1->Cells[0][i + 1].ToDouble());
s2 += x[i]; s3 += y[i];
s4 += x[i] * x[i];
s5 += x[i] * y[i];
s6 += y[i] * y[i];
}
//Расчет константы скорости реакции, порядка реакции, коэффициента корреляции
k = exp((s3 * s4 - s2 * s5) / (s1 * s4 - s2 * s2));
n = (s1 * s5 - s2 * s3) / (s1 * s4 - s2 * s2);
r = (s1 * s5 - s2 * s3) / sqrt((s1 * s4 - s2 * s2) * (s1 * s6 - s3 * s3));
//Построение графиков и расчет концентраций компонентов реакции
for(int i = 1; i <= UpDown1->Position; i++)
{
Series1->AddXY(StringGrid1->Cells[1][i].ToDouble(),
StringGrid1->Cells[0][i].ToDouble());
if(ca < 0) throw "Модель невозможно описать линейной регрессией";
if(i == 1)
{
Series2->AddXY(StringGrid1->Cells[1][i].ToDouble(), ca );
Series3->AddXY(StringGrid1->Cells[1][i].ToDouble(), cb );
Series4->AddXY(StringGrid1->Cells[1][i].ToDouble(), cc );
}
else
{
t = StringGrid1->Cells[1][i].ToDouble() - StringGrid1->Cells[1][i - 1].ToDouble();
Series3->AddXY(StringGrid1->Cells[1][i].ToDouble(), cb = cb + k * pow(ca, n) * t);
Series4->AddXY(StringGrid1->Cells[1][i].ToDouble(), cc = cc + k * 2*pow(ca, n)*t);if(reg_down > reg_up)
Series2->AddXY(StringGrid1->Cells[1][i].ToDouble(), ca =ca-k*pow(ca, n) * t);
else
Series2->AddXY(StringGrid1->Cells[1][i].ToDouble(), ca =ca+k*pow(ca, n) * t);
}
//расчет дисперсии
d += pow(StringGrid1->Cells[0][i].ToDouble() - ca, 2);
}
//Создание формы отображения результатов
Application->CreateForm(__classid(TForm2), &Form2);
//Отображение формы
Form2->ShowModal();
delete[]y;
delete[]x;
}
catch(char*str)
{
Series1->Clear();
Series2->Clear();
Series3->Clear();
Series4->Clear();
// Вывод сообщения об ошибке
Application->MessageBox(str, "Ошибка", MB_ICONERROR | MB_OK);
}
catch(EConvertError&)
{
// Вывод сообщения об ошибке
Application->MessageBox("Не правильный тип данных", "Ошибка",
MB_ICONERROR | MB_OK);
delete[]y;
delete[]x;
}
catch(...)
{
// Вывод сообщения об ошибке
Application->MessageBox("НЕ известная ошибка", "Ошибка",
MB_ICONERROR | MB_OK);
}
}

#ifndef RezultInterpolH
#define RezultInterpolH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published: // IDE-managed Components
TPanel *Panel1;
TGroupBox *GroupBox2;
TLabel *Label3;
TLabel *Label4;
TEdit *Edit2;
TEdit *Edit3;
TLabel *Label1;
TEdit *Edit1;
TLabel *Label2;
TEdit *Edit4;
TBitBtn *BitBtn1;
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include "MainInterpol.h"
#include "RezultInterpol.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//Определение обработчика отображения формы
void __fastcall TForm2::FormShow(TObject *Sender)
{//Вывод результатов расчета
Edit2->Text = FloatToStrF(Form1->n, ffGeneral, 4, 4);
Edit3->Text = FloatToStrF(Form1->k, ffGeneral, 4, 4);
Edit1->Text = FloatToStrF(Form1->d, ffGeneral, 4, 4);
Edit4->Text = FloatToStrF(Form1->r, ffGeneral, 4, 4);
}