Add(MainForm,12086188,511,161)
{
 Position=1
 link(onCreate,8704945:doEvent1,[])
}
Add(Events,9649812,700,175)
{
 Name="MyCoolEvent"
 ManualReset=1
 AddHint(-30,-25,78,13,Name)
}
Add(WaitObject,9175818,700,224)
{
 link(ObjHandle,9649812:ObjHandle,[])
 AddHint(2,40,24,13,Time)
}
Add(Thread,13945738,644,224)
{
 Delay=0
 link(onExec,9175818:doWait,[])
 link(onSyncExec,11144088:doData,[])
}
Add(Hub,8704945,574,175)
{
 link(onEvent1,9649812:doCreate,[])
 link(onEvent2,14910826:doWork1,[(613,188)])
}
Add(Button,9022058,511,315)
{
 Left=100
 Top=40
 Width=180
 Height=40
 Align=2
 Caption="Просигнализирвать!"
 link(onClick,11297637:doEvent1,[])
}
Add(Hub,11297637,574,315)
{
 OutCount=3
 link(onEvent1,13945738:doStop,[(606,321)(606,237)])
 link(onEvent2,9649812:doSet,[(620,328)(620,188)])
 link(onEvent3,14910826:doWork3,[(613,335)])
}
Add(ListBox,5200896,819,231)
{
 Left=920
 Top=115
 Align=5
}
Add(DoData,11144088,756,231)
{
 Data=String(++Событие получено)
 link(onEventData,5200896:doAdd,[])
}
Add(HubEx,14910826,609,224)
{
 link(onEvent,13945738:doStart,[])
}

Add(MainForm,11176470,399,84)
{
 Left=20
 Top=105
 Width=527
 Caption="MemoryMapFile"
 Point(onClose)
 link(onCreate,14190799:doEvent1,[])
}
Add(DoData,2298906,469,161)
{
 link(onEventData,1143428:doPut,[])
 link(Data,11804486:Text,[(475,152)(566,152)(566,208)(664,208)])
}
Add(DataToFile,1143428,525,161)
{
 Type=6
 Point(doPosition)
 Point(Position)
 link(onGet,398725:doEvent1,[])
 link(Stream,11748904:Stream,[])
}
Add(Hub,9182042,413,154)
{
 link(onEvent1,2836025:doWork1,[(445,160)])
 link(onEvent2,2298906:doData,[])
}
Add(HubEx,2836025,441,175)
{
 link(onEvent,1143428:doPosition,[])
}
Add(Hub,1104125,413,231)
{
 link(onEvent1,2836025:doWork3,[(445,237)])
 link(onEvent2,1143428:doGet,[(509,244)(509,174)])
}
Add(SharedStream,11748904,525,98)
{
 CoreName="My_MapFile"
 PageMem=4
 link(onOpen,11176470:doCaption,[(564,104)(564,76)(389,76)(389,90)])
}
Add(Memo,11804486,658,147)
{
 Width=574
 Height=387
 Align=5
 Font=[Courier New,10,1,0,204]
 Point(doSetSelStart)
 Point(onKeyUp)
 link(onChange,13184547:doEvent,[])
}
Add(Hub,14190799,448,98)
{
 link(onEvent1,11748904:doOpen,[])
 link(onEvent2,2286399:doWork,[(473,111)(473,146)(32,146)(32,181)])
}
Add(Events,9649812,287,175)
{
 Name="MyCoolEvent"
 ManualReset=1
 AddHint(-30,-25,78,13,Name)
}
Add(WaitObject,9175818,287,224)
{
 link(ObjHandle,9649812:ObjHandle,[])
 AddHint(2,40,24,13,Time)
}
Add(Thread,13945738,231,224)
{
 Delay=0
 link(onExec,9175818:doWait,[])
 link(onSyncExec,7396459:doWork,[])
}
Add(Hub,8704945,140,175)
{
 link(onEvent1,9649812:doCreate,[])
 link(onEvent2,14910826:doWork1,[(200,188)])
}
Add(Hub,11297637,140,224)
{
 OutCount=5
 link(onEvent1,9182042:doEvent1,[(165,230)(165,160)])
 link(onEvent2,13945738:doStop,[])
 link(onEvent3,9649812:doSet,[(207,244)(207,188)])
 link(onEvent4,9649812:doReset,[(214,251)(214,195)])
 link(onEvent5,14910826:doWork3,[(200,258)])
}
Add(HubEx,14910826,196,224)
{
 link(onEvent,13945738:doStart,[])
}
Add(Check,2286399,42,175)
{
 Caption="CreateEvent"
 link(onEvent,8704945:doEvent1,[])
}
Add(Check,13004025,42,224)
{
 Caption="Write"
 link(onEvent,11297637:doEvent1,[])
}
Add(Check,7396459,343,231)
{
 Caption="Read"
 link(onEvent,1104125:doEvent1,[])
}
Add(Hub,398725,602,161)
{
 OutCount=3
 link(onEvent1,14592248:doReset,[(627,167)(627,111)])
 link(onEvent2,11804486:doText,[])
 link(onEvent3,14592248:doOn,[(634,181)(634,118)])
}
Add(IndexToChanel,13184547,714,147)
{
 Point(Index)
 link(onEvent1,13004025:doWork,[(753,153)(753,272)(32,272)(32,230)])
 link(Index,14592248:State,[])
}
Add(Switch,14592248,714,98)
{
 DataOn=Integer(0)
 DataOff=Integer(1)
 Default=0
 Point(doOn)
 Point(State)
}

#pas
procedure THIEvents.SetName(Value: string);
var  V: PChar;
begin
  if FEvent <> 0 then CloseHandle(FEvent);
  if Length(Value) > 0 then V := PChar(Value) else V := nil;
  FEvent := CreateEvent(nil, True, False, V);
end;

#pas
procedure THIEvents.SetName(Value: string);
begin
  if FEvent <> 0 then CloseHandle(FEvent); // Логично
  FEvent := CreateEvent(nil, True, False, @Value); // А так - проще
end;

#pas
procedure THIEvents.SetManualReset(Value: boolean);
begin
  if FEvent <> 0 then CloseHandle(FEvent);
  FEvent := CreateEvent(nil, Value, False, @_prop_Name);
end;