创建 GUID

uses ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
  Guid: TGUID;
  str: string;
begin
  CoCreateGuid(Guid);
  str := GUIDToString(Guid);

  Memo1.Lines.Add(str);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  Guid: TGUID = (D1:$AAAAAAAA; D2:$BBBB; D3:$CCCC; D4:($11,$22,$33,$44,$55,$66,$77,$88));
var
  str: string;
begin
  str := GUIDToString(Guid);
  ShowMessage(str); {AAAAAAAA-BBBB-CCCC-1122-334455667788}
end;

procedure TForm1.Button3Click(Sender: TObject);
const
  Guid: TGUID = '{AAAAAAAA-BBBB-CCCC-1122-334455667788}';
var
  str: string;
begin
  str := GUIDToString(Guid);
  ShowMessage(str); {AAAAAAAA-BBBB-CCCC-1122-334455667788}
end;