Pascal vs C++

                        TFunction *ret1=new TFunction();
                        AnsiString t1=Function.SubString(End+1,Function.Length()-End);
                        switch (OperationType){
                               case otSin   : ret1->OnCalc=sin; break;
                               case otCos   : ret1->OnCalc=cos; break;
                               case otTg    : ret1->OnCalc=tan; break;
                               case otCtg   : ret1->OnCalc=ctg; break;
                               case otArcsin: ret1->OnCalc=asin; break;
                               case otArccos: ret1->OnCalc=acos; break;
                               case otArctg : ret1->OnCalc=atan; break;
                               case otArcctg: ret1->OnCalc=actg; break;
                               case otLn    : ret1->OnCalc=log; break;
                               case otLog   : ret1->OnCalc=log10; break;
                        }
                        ret1->LeftNode=CreateTree(t1,Variables);
                        ret1->RightNode=NULL;
                        return ret1;

for (int i=0;i<CopySize;i++){
      *Ptr=*Ptr+Shift;
}

case otPlus: ret1->onCalc = operator+; break;

                 case dtBinarOperation:{
                        AnsiString t1=Function.SubString(1,Start);
                        AnsiString t2=Function.SubString(End,Function.Length()-End+2);
                        switch (OperationType){
                               case otOr  : ret=new TOr()  ; break;
                               case otAnd : ret=new TAnd() ; break;
                               case otAbove:ret=new TAbove() ; break;
                               case otBelow:ret=new TBelow() ; break;
                               case otEqual:ret=new TEqual() ; break;
                               case otAdd : ret=new TAddition() ; break;
                               case otSub : ret=new TSubstraction() ; break;
                               case otMul : ret=new TMultiplection() ; break;
                               case otDiv : ret=new TDivision() ; break;
                               case otPow : ret=new TPow() ; break;
                               case otRoot: ret=new TRoot(); break;
                        }
                        ret->LeftNode=CreateTree(t1,Variables);
                        ret->RightNode=CreateTree(t2,Variables);
                        return ret;
                        }

TFunction2 *ret1 = new TFunction2();
switch(operationType) {
    case otOr:  ret1->OnCalc = fun(x, y) { return x || y }; break;
    case otAnd: ret1->OnCalc = fun(x, y) { return x && y }; break;
    ...
}

TFunnction::Calc(){
               return OnCalc(LeftNode->Calc); // вот он этот CALL
}
TAdditional::Calc(){
               return LeftNode->Calc+RigthNode->Calc; //а тут его нет а с лямбдой будет
//если сделать так
}
TCos::Calc(){
               return cos(LeftNode->Calc); // этот CALL никуда не денется.
}