EAccessViolation исключение

void __fastcall TForm1::OperationsExecute(TObject *Sender)
{
        TComponent* VInm = dynamic_cast<TAction*>(Sender)->ActionComponent;
        int OpHook = VInm->Tag;
        //int OpHook = ((TComponent*)Sender) -> Tag;
        //long *s_var = new long;
        float s_var;
        float e_var;
        float a_var;
        AnsiString m_op = "/x+-";
        //char ed_str[200];
        //char *ed_str = Edit1->Text.WideChar;
        //strcpy(*ed_str, Edit1->Text.c_str());
        int l_ch = AnsiPos(Edit1->Text.AnsiLastChar(),m_op);
        if(l_ch != 0){
        //if(!(AnsiStrScan(*m_op,ed_str)))
                Edit1->Text = Edit1->Text.Delete(Edit1->Text.Length(),1);
                Edit1->Text = Edit1->Text + m_op[OpHook];
        }
        else{
                Edit1->Text = Edit1->Text + m_op[OpHook];
                Edit2->Text = StrToInt(Edit2->Text)+1;
        }
 
        if (StrToInt(Edit2->Text) > 1 || VInm->Tag == 61){
                Edit1->Text = Edit1->Text.Delete(Edit1->Text.Length(),1);
                s_var = StrToFloat(Edit1->Text.SubString(1,AnsiPos(m_op[OpHook],Edit1->Text)-1));
                e_var = StrToFloat(Edit1->Text.Delete(1,AnsiPos(m_op[OpHook],Edit1->Text)));
                ShowMessage(s_var);
        }
 
}