Ошибка Link32 error "unresolved external" при выполнении задачи

#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
int i;
float summa;
int srok;
float stavka;
float summa_vklada;
 
if (Edit1->Text=="" || Edit2->Text=="" || Edit3->Text=="")
 {
  ShowMessage("заполните все поля");
 return;
}
summa=Edit1->Text.ToDouble();
srok=Edit2->Text.ToInt();
stavka=Edit3->Text.ToDouble();
 
summa_vklada=summa;
for (i=1; i <= srok; i++)
 
 summa_vklada=summa_vklada*stavka/100;
      Edit4->Text=FloatToStr(ceil(summa_vklada*100)/100);
    }
 
 
 
void __fastcall TForm3::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
if ((Key>='0' &&  Key<='9')||(Key==',')||(Key==(Char)8))
     {}
       else Key=0;
}
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm3::Edit2KeyPress(TObject *Sender, wchar_t &Key)
{
if ((Key>='0' &&  Key<='9')||(Key==',')||(Key==(Char)8))
     {}
       else Key=0;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Edit3KeyPress(TObject *Sender, wchar_t &Key)
{
if ((Key>='0' &&  Key<='9')||(Key==',')||(Key==(Char)8))
     {}
       else Key=0;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Edit4KeyPress(TObject *Sender, wchar_t &Key)
{
if ((Key>='0' &&  Key<='9')||(Key==',')||(Key==(Char)8))
     {}
       else Key=0;
}
//---------------------------------------------------------------------------

    void __fastcall Edit1KeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall Edit2KeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall Edit3KeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall Edit4KeyPress(TObject *Sender, wchar_t &Key);