#pas
procedure THIWinTools._var_isEnabled;

var h:cardinal;

begin

   h := ReadInteger(_Data,_data_Handle,0);

   dtInteger(_Data, integer(isWindowEnabled(h)));

end;