procedure THIRegExp.SetProp(var obj: OleVariant);
var dt:TData;
begin
  dt := _data_Empty; // вот эту строку нужно добавить!
  obj.Global := ReadInteger(dt,_data_Global,_prop_Global);
  obj.IgnoreCase := ReadInteger(dt,_data_IgnoreCase,_prop_IgnoreCase);
  obj.Multiline := ReadInteger(dt,_data_Multiline,_prop_Multiline);
end;