void __fastcall TForm1::Panel14Click(TObject *Sender)//кнопка +
{   p= 1 ; //переменная флаг
  plus=StrToInt(Memo1->Text);//сохраняем значение с мемо поля в переменную
 
}
void __fastcall TForm1::Panel1Click(TObject *Sender)// кнопка 7
{
if(p== 1  || Memo1->Text== 0 ) //если р=1 то очищаем мемо и вводится новое число
{

Memo1->Lines->Clear();
   Memo1->Text = Memo1->Text + IntToStr( 7 );
    p= 0 ;

}

else
{
Memo1->Text = Memo1->Text + IntToStr( 7 );
}

Memo1->Text=plus+StrToInt(Memo1->Text);

plus+=StrToInt(Memo1->Text);
Memo1->Text=plus;