function CoCreateGuid(out guid: TGUID): HResult; stdcall; external ‘ole32.dll‘ name ‘CoCreateGuid‘;

function CreateGUID(out Guid: TGUID): HResult;
begin
  Result := CoCreateGuid(Guid);
end;

function GUIDToString(const GUID: TGUID): string;
var
  P: PWideChar;
begin
  if not Succeeded(StringFromCLSID(GUID, P)) then
    ConvertError(@SInvalidGUID);
  Result := P;
  CoTaskMemFree(P);
end;　　

function GetGUID: string;
var
  Guid: TGUID;
begin
  CreateGUID(Guid);
  Result := GUIDToString(Guid);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ShowMessage(GetGUID);
end;

function Guid_Gen: ansistring;
var
  s,gstr: string;
  i: longint;
begin
  s := ‘0123456789abcdef‘;
    //8-4-4-4-12
  gstr := ‘xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx‘;
  for i := 1 to length(gstr) do
  begin
    if gstr[i] = ‘x‘ then
      gstr[i] := s[Random(16) + 1];
  end;
  Result:=gstr;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   ShowMessage(Guid_Gen);
end;