Codigo fuente para GUID

[dec]

Hola,

Si lo que quieres es crear una o más GUID en tiempo de ejecución puedes usar algo así:

Código Delphi [-]
uses ActiveX, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  G: TGUID;
begin
  OleCheck(CoCreateGuid(G));
  ShowMessage(SysUtils.GUIDToString(G));
end;

Visto en la misma wiki de Embarcadero.