Проблема при работе с vector

vector <int> vec(0);
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
    int i=0;
    if ((Key>='0')&&(Key<='9'))
        return;
    if (Key==VK_RETURN) {
        i+=1;
        vec.resize(i);
        vec.push_back(StrToInt(Edit1->Text));
        Edit1->Text="";
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    sort(vec.begin(), vec.end());
    Label2->Caption=Label2->Caption+vec[0];
    Label3->Caption=Label3->Caption+vec.size();
    for(int i = 0; i < vec.size(); i++) {
        Memo1->Lines->Add(vec[i]+" ");
    }
}

void __fastcall TfMain::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
      Set <wchar_t, 0, 255> Dig;
      Dig << '0' << '1' << '2' << '3' << '4' << '5' << '6' << '7' << '8' << '9' << '.' << '-';
 
       if(Key==13) 
       {
           //какие-то действия
       }
       if(Dig.Contains(Key)) KeyPress(Key);
       else Key=0;
 
}

#include <System.Math.hpp>
...
int Minimum = MaxComp;
...
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
   int k;
   if(Key == VK_RETURN)
     {
        if(TryStrToInt(Edit1->Text, k))
          {
             if(k == 0)
               Label1->Caption = IntToStr(Minimum);
             else
               {
                  Minimum = (k < Minimum) ? k : Minimum;
                  Memo1->Lines->Add(k);
               }
          }
        Edit1->Clear();
     }
}