[darkamerico]

Preguntándole a ChatGPT, me dió la siguiente funcion, la cual ya implementé:

Código Delphi [-]
uses
  SysUtils;

function GenerateGUID: string;
var
  GUID: TGUID;
begin
  // Crear un nuevo GUID
  if CreateGUID(GUID) = S_OK then
  begin
    // Convertir el GUID a string
    Result := GUIDToString(GUID);
  end
  else
  begin
    // En caso de error, devolver una cadena vacía
    Result := '';
  end;
end;

Resultado:



Funcion:

Código Delphi [-]
function TFunciones.GeneraGUID: string;
var
  GUID: TGUID;
  GUIDStr:string;
  res:boolean;
begin
  res:=True; // Asume que el GUID está Duplicado
  while res do
  begin
    if CreateGUID(GUID) = S_OK then
    begin
      GUIDStr:=GUIDToString(GUID);
      res:=clsFx.VerificaGUIDUnico(GUIDStr);
      Result := GUIDStr;
      break;
    end
    else Result := '';
  end;
end;

Quedo atento a sus comentarios.

Atte