data_real:
        begin
          r := ToReal(op2);
          case OpType of
           0: Result := op1.rdata = r;
           1: Result := op1.rdata < r;
           2: Result := op1.rdata > r;
           3: Result := op1.rdata <= r;
           4: Result := op1.rdata >= r;
           5: Result := op1.rdata <> r;
          end;        
        end;