library MyDll;
uses
  SysUtils,
  Classes,
  adodb,
  adoint;
{
 prop_index :=  1  'Update Criteria'
 prop_index :=  2  'Update Resync'
}
function SetDinamicProp(var ds:TCustomADODataSet;prop_index:integer;val:integer):boolean;export;stdcall;
  Result :=True;
begin
if prop_index =  1  then
 begin
  ds.Properties['Update Criteria'].Value := val;
  Result :=True;
 end
else
if prop_index =  2  then
 begin
  ds.Properties['Update Resync'].Value := val;
  Result :=True;
 end
else
  Result :=False;


end;
exports
SetDinamicProp;
end.