[LINK Error] Error: Unresolved external - C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <io.h>
#include <stdio.h>
#pragma hdrstop
 
#include "Unit1Maevski.h"
#include "Unit2Maevski.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct Item
{ char Type[512],Name[512],Char[1980], Expl[1024];
  float Price;
}
ItemZap;
int NumofItems;
int SizeofItem= sizeof(ItemZap);
FILE*Database;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{ StringGrid1->Cells[0][0]="Тип элемента";
  StringGrid1->Cells[1][0]="Марка";
  StringGrid1->Cells[2][0]="Характеристики";
  StringGrid1->Cells[3][0]="Условия эксплуатации";
  StringGrid1->Cells[4][0]="Цена";
 
  StringGrid2->Cells[0][0]="Тип элемента";
  StringGrid2->Cells[1][0]="Марка";
  StringGrid2->Cells[2][0]="Характеристики";
  StringGrid2->Cells[3][0]="Условия эксплуатации";
  StringGrid2->Cells[4][0]="Цена";
 
  Database= fopen("database.db","rb");
  int Descr= fileno (Database);
  int SizeofFile= filelength (Descr);
  NumofItems= SizeofFile/SizeofItem;
  Item*ArrayofZap = new Item[NumofItems];
  StringGrid1->RowCount=NumofItems+1;
  fread (ArrayofZap, SizeofItem, NumofItems, Database);
  for (int i=0;i<NumofItems;i++)
  {  StringGrid1->Cells[0][i+1]= ArrayofZap[i].Type;
     StringGrid1->Cells[1][i+1]= ArrayofZap[i].Name;
     StringGrid1->Cells[2][i+1]= ArrayofZap[i].Char;
     StringGrid1->Cells[3][i+1]= ArrayofZap[i].Expl;
     StringGrid1->Cells[4][i+1]= FloatToStrF(ArrayofZap[i].Price,ffFixed, 6, 2);
   }
   fclose(Database);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{  Database = fopen("database.db","ab");
   strcpy(ItemZap.Type, Edit1->Text.c_str());
   strcpy(ItemZap.Name, Edit2->Text.c_str());
   strcpy(ItemZap.Char, Edit3->Text.c_str());
   strcpy(ItemZap.Expl, Edit4->Text.c_str());
   ItemZap.Price= StrToFloat(Edit5->Text);
   fwrite(&ItemZap, SizeofItem, 1, Database);
   fclose (Database);
   StringGrid1->RowCount++;
   StringGrid1->Cells[0][StringGrid1->RowCount-1]= ItemZap.Type;
   StringGrid1->Cells[1][StringGrid1->RowCount-1]= ItemZap.Name;
   StringGrid1->Cells[2][StringGrid1->RowCount-1]= ItemZap.Char;
   StringGrid1->Cells[3][StringGrid1->RowCount-1]= ItemZap.Expl;
   StringGrid1->Cells[4][StringGrid1->RowCount-1]= FloatToStrF (ItemZap.Price, ffFixed, 6, 2);
   NumofItems++;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString TypeS = Edit6->Text;
  int c= 0;
  for (int i= 1;i<=NumofItems;i++)
  {  if (StringGrid1->Cells[0][i] ==TypeS)
     {  c++;
        StringGrid2->Rows[c] = StringGrid1->Rows[i];
      }
   }
   if (c!=0)
     {  StringGrid1->Visible = false;
        StringGrid2->Visible = true;
        Button2->Visible = false;
        Button3->Visible = true;
      }
     else
     {  ShowMessage ("Элементы данного типа не найдены");
      }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{ StringGrid1->Visible = true;
  StringGrid2->Visible = false;
  Button2->Visible = true;
  Button3->Visible = false;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  Form1->Close();
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Form2->Show();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1Maevski.cpp", Form1);
USEFORM("Unit2Maevski.cpp", Form2);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->CreateForm(__classid(TForm2), &Form2);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------