E2316 '_fastcall TForm1::TForml(TComponent *)' is not a member of 'TForm1'

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 __fastcall TForm1::TForml(TComponent*Owner):TForm(Owner)
{
Edit2->0nKeyPress = EditKeyPress;
Edit3->0nKeyPress = EditKeyPress;
Edit4->0nKeyPress = EditKeyPress;
Edit5->0nKeyPress = EditKeyPress;
Editl->Tag = 1;
Edit2->Tag = 2;
Edit3->Tag = 3;
Edit4->Tag = 4;
Edit5->Tag = 5;
}
void __fastcall TForml::EditKeyPress(TObjеct *Sender,char &Key)
{
TEdit * Edit;
Edit = (TEdit*)Sender;
 
if ( Key == VK_RETURN)
switch (Edit->Tag)
{
case 1 :
Edit2->SetFocus() ; break;
case 2 :
Edit3->SetFocus() ; break;
case 3 :
Edit4->SetFocus() ; break;
case 4 :
Edit5->SetFocus(); break;
case 5:
Buttonl->SetFocusО ; break;
}
return;
}
if ( (( Key >= '0') && ( Key <= •9' ) ||
(Key == VK_BACK))
{
return;
}
if ((Key == ',') || (Key == '.'))
{
Key = DeciinalSeparator;
if ( (Edit->Text).Pos(DecimalSeparator) != 0
Key = 0;
return;
}
if ( Key == VK_BACK )
return ;
Key = 0;
}
void __fastcall TForml::ButtonlClick(TObject *Sender)
{
float a;
float b;
float c;
float x;
float y;
a = StrToFloat(Editl->Text);
b = StrToFloat(Edit2->Text);
c = StrToFloat(Edit3->Text);
x = StrToFloat(Edit4->Text);
y = StrToFloat(Edit5->Text);
{
summ = a*x+b*y+c;
Label6->Caption = "Ответ: "
}
}

0nKeyPress