{
OleCheck, GuidToString example
The following example manufactures a GUID and displays it in a dialog box after translating it to a string.
} 
uses ActiveX, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
  G: TGUID;
begin
  OleCheck(CoCreateGuid(G));
  ShowMessage(GuidToString(G));
end; 
