anchor.diff:        if lHasResult then begin
           var lCGAssignmentStatement := new CGAssignmentStatement(new CGNamedIdentifierExpression('res'), lCall);
           lCGBeginEndBlockStatement.Statements.Add(lCGAssignmentStatement);
  +      end
  +      else begin
  +         lCGBeginEndBlockStatement.Statements.Add(lCall);
         end;
         
         for each elz in lAfterCall do
  
positive.code:           lCGBeginEndBlockStatement.Statements.Add(new CGReturnStatement(WrapObject(new CGNamedIdentifierExpression('res'), GetMarzipanType(meth.ReturnType))))
          else
            lCGBeginEndBlockStatement.Statements.Add(new CGReturnStatement(new CGNamedIdentifierExpression('res')));
      end;
  
      var lProperties := new List<CGPropertyDefinition>;
  
negative.code:           lCall.Parameters.Add(new CGCallParameter(new CGNamedIdentifierExpression('inst'), ''));
        end;
  
        //lMeth.Statements.Add(lCGBeginEndBlockStatement);
  
        var lAfterCall: LinkedList<CGStatement>;
        for i: Integer := 0 to meth.Parameters.Count -1 do begin
  