void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { if((Key==13)&&(Edit1->Text.Length()==4))SpeedButton1Click(Sender); }