procedure TForm1.dOPCGUI1Items0nChangeData(Control: TControl; var OPCValue: OleVariant; var Handled: Boolean);
beginifControlis TMemo thenbegin
TMemo(Control).Lines.Add(OPCValue);
Handled := true; //no default work procedure for this itemend;
end;
procedure TForm1.dOPCGUI1Items0nChangeData(Control: TControl; var OPCValue: OleVariant; var Handled: Boolean);
beginif OPCValue <> 0 then
OPCValue := 1;
Handled := false; //use default work procedure, but with new Valueend;