
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} OleCheck, GuidToString example
The following example manufactures a GUID and displays it in a dialog box after translating it to a string.
#include <ActiveX.hpp>
#include <ComObj.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	TGUID g;
  	OleCheck(CoCreateGuid(&g));
  	ShowMessage(GUIDToString(g));
} 
