如何在Delphi中生成GUID版本1？

uses
  System.SysUtils, System.Classes, System.Generics.Collections;

procedure GenerateGUIDVersion1(var GUID: TGUID);
var
  Generator: TGuidGenerator;
begin
  Generator := TGuidGenerator.Create(nil);
  try
    Generator.GenerateGUID(GUID, TGuidType.gtGuid1);
  finally
    Generator.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  GUID: TGUID;
begin
  GenerateGUIDVersion1(GUID);
  ShowMessage(GUIDToString(GUID));
end;