DoData

что бы в палитре элементов было две кнопки простая и с дудатой ,

procedure THIButtonDD._OnClick;
var dt:TData;
begin
if Assigned(_data_Data.Event) then
begin
dt := ReadData(dt, _data_Data);
_hi_OnEvent(_event_onClick, dt);
end else
_hi_OnEvent_(_event_onClick,_prop_Data);
end;