procedure ThiGlobalVarEx._var_Var;
var dt:TData;
begin
  dtNull(_Data);
  dt:= ReadData(_Data,_data_Data,nil);
  if (GData <> nil) and (not _IsNull(GData^)) then
     _Data := GData^
  else if not _IsNull(dt) then
     _Data := dt
  else
     dtNull(_Data);
end;