recado:=CoRecordset.Create;
                //conado:=
                strSQL_temp:='SELECT @@IDENTITY';
        
                    recADO.Open(strSQL_temp, frmMDI.ADOConnection1.ConnectionObject,adOpenForwardOnly, adLockReadOnly,adCmdUnknown);
                    recado.MoveFirst;
                    intStatus_open:=recado.Fields[ 0 ].value;//здесь возникает ошибка 'Expression illegal in evaluator'