Перевести с RAD Studio в Visual Studio

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
double f(double t, double y)
{
    return y / t + t*sin(t);
}
void runge_kyta(double x, double xn, double y,double h)
{
    double xi, yi;
    double k1, k2, k3, k4;
    xi = x;
    yi = y;
   Form1->Chart1->Series[0]->AddXY(xi,yi);
   Form1->Memo1->Lines->Add("xi:"+FloatToStr(xi)+"yi:"+FloatToStr(yi));
    while (xi < xn)
    {
        k1 = h*f(xi, yi);
        k2 = h*f(xi + h / 2, yi + k1 / 2);
        k3 = h*f(xi + h/ 2, yi + k2 / 2);
        k4 = h*f(xi + h, yi + k3);
        yi = yi + (k1 + 2*k2 + 2*k3 + k4) / 6;
        xi += h;
        if((fabs(k2-k3)/fabs(k1-k2))<=0.05)
        {
        Form1->Memo1->Lines->Add("xi:"+FloatToStr(xi)+"yi:"+FloatToStr(yi));
        Form1->Chart1->Series[0]->AddXY(xi,yi);
        }
        else
        {
        h=h/2;
        }
    }}
void eylera(double x, double xn, double y, double h)
{
    double xi, yi;
    int i = 0,n=5;
    xi = x;
    yi = y;
   Form1->Memo1->Lines->Add("xi:"+FloatToStr(xi)+"yi:"+FloatToStr(yi));
   Form1->Chart1->Series[1]->AddXY(xi,yi);
    while (i<n)
    {
        yi=yi + h*f(x + i*h, yi);
        xi += h;
        i++;
       Form1->Memo1->Lines->Add("xi:"+FloatToStr(xi)+"yi:"+FloatToStr(yi));
       Form1->Chart1->Series[1]->AddXY(xi,yi);
    }
}
double f2(double t)
{
  return t*(-cos(t)+2/3.14+cos(3.14/2));
}
void fun(double x, double xn, double h)
{
    int n,i=0;
    double ti,yi,xi;
    xi=x;
    n=5;
    while(i<n+1)
    {
     ti=x + i*h;
     yi=f2(ti);
     Form1->Memo1->Lines->Add("xi:"+FloatToStr(xi)+"yi:"+FloatToStr(yi));
     Form1->Chart1->Series[2]->AddXY(xi,yi);
     xi+=h;
     i++;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ВыполнитьClick(TObject *Sender)
{
 double x=StrToFloat(Edit1->Text);
 double xn=StrToFloat(Edit2->Text);
 double y=StrToFloat(Edit3->Text);
 double h=StrToFloat(Edit4->Text);
  Memo1->Lines->Add("Метод Рунге-Кута");
  runge_kyta(x,xn,y,h);
  Memo1->Lines->Add("Метод Эйлера");
  eylera(x,xn,y,h);
  Memo1->Lines->Add("Точные значения");
  fun(x,xn,h);
}