Add(MainForm,2953706,119,112)
{
 Width=529
 Height=144
}
Add(InlineCode,9040005,231,112)
{
 WorkPoints=#12:doCreateGUID|
 EventPoints=#6:onGUID|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:     onGUID: THI_Event;|54:     procedure doCreateGUID(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|97:function CreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid';|83:function StringFromCLSID(const clsid: TGUID; out psz: PWideChar): HResult; stdcall;|46:  external 'ole32.dll' name 'StringFromCLSID';|0:|26:function NewGUID : string;|4:var |12:  g : TGUID;|16:  ws: PWideChar;|5:begin|17:  CreateGUID (g);|24:  StringFromCLSID(g,ws);|38:  Result := Copy (ws,2, Length(ws)-2);|4:end;|0:|35:procedure THiAsmClass.doCreateGUID;|5:begin|30:  _hi_onEvent(onGUID,NewGUID);|4:end;|0:|0:|4:end.|
 link(onGUID,6334505:doText,[])
}
Add(Button,5439497,175,112)
{
 Left=15
 Top=30
 Width=80
 Caption="NewGUID"
 link(onClick,9040005:doCreateGUID,[])
}
Add(Edit,6334505,280,112)
{
 Left=120
 Top=30
 Width=350
 Font=[Courier New,8,0,0,204]
}