procedure TForm1.dOPCGUI1Items0nChangeData(Control: TControl; var OPCValue: OleVariant; var Handled: Boolean); begin if Control is TMemo then begin TMemo(Control).Lines.Add(OPCValue); Handled := true; //no default work procedure for this item end; end;

procedure TForm1.dOPCGUI1Items0nChangeData(Control: TControl; var OPCValue: OleVariant; var Handled: Boolean); begin if OPCValue <> 0 then OPCValue := 1; Handled := false; //use default work procedure, but with new Value end;