Amper, если в исходнике вместо
[code:1]procedure THILED._onChange; var‏
ind:integer;
begin
Case lControl.Value of
True: ind:=1;
False: ind:=0;
end;
_hi_onEvent(_event_onChange,ind);
end;[/code:1]
применить одну из этих конструкций
[code:1]procedure THILED._onChange; var
ind:integer;
begin
If lControl.Value then ind:=1 else ind:=0;
_hi_onEvent(_event_onChange,ind);
end;
___________________________________________________
или
procedure THILED._onChange;
var
ind:integer;
begin
ind:=0;
If lControl.Value then ind:=1;
_hi_onEvent(_event_onChange,ind);
end;[/code:1] то , после компиляции, коды на 8 байт меньше и нет предупреждений компилятора, что ind может быть неопределенным.
А с отсутствием onClick - пока не разобрался.