delphi 创建GUID

uses
  activex;

procedure TForm1.Button1Click(Sender: TObject);
var
ID:TGUID;
s:string;
begin
      if   CoCreateGuid(ID)=s_OK   then
      begin
            showmessage(GUIDToString(ID));
      end;

end;