Linker Fatal Error: Could not open *.exe (error code 5)

/---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TImage *Image1;
        TButton *Button1;
        TEdit *Edit1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        void serp(double x1,double y1,double x2,double y2,int n);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 void TForm1::serp(double x1, double y1, double x2, double y2, int n)
{
    if(n > 0)
    {
        double new_x1 = 2*x1/3 +   x2/3;
        double new_x2 =   x1/3 + 2*x2/3;
        double new_y1 = 2*y1/3 +   y2/3;
        double new_y2 =   y1/3 + 2*y2/3;
        Image1->Canvas->Rectangle((int)new_x1, (int)new_y1, (int)new_x2, (int)new_y2);
        serp(x1, y1, new_x1, new_y1, n-1);
        serp(new_x1, y1, new_x2, new_y1, n-1);
        serp(new_x2, y1, x2, new_y1, n-1);
        serp(x1, new_y1, new_x1, new_y2, n-1);
        serp(new_x2, new_y1, x2, new_y2, n-1);
        serp(x1, new_y2, new_x1, y2, n-1);
        serp(new_x1, new_y2, new_x2, y2, n-1);
        serp(new_x2, new_y2, x2, y2, n-1);
    }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
serp(0, 0, Width, Height, StrToIntDef(Edit1->Text, 3));
}
//---------------------------------------------------------------------------

void TForm1::serp(double x1,double y1,double x2,double y2,int n);